Microsoft Office 2007 Enterprise Running a Command

We received a question the other day from someone who was using the Shell function in VBA to run a command in a command prompt. The command in question was netsh dhcp, but this could apply to any number of commands. The original code was as follows: Shell "c:\windows\system32\cmd.exe /k netsh –c dhcp" This code had worked for a while, but on Windows Server 2008 (and presumably Windows Vista and Windows 7), this command requires elevated permissions. There are likely a few ways to do this, but we’ll look at the runas command to make this work. The runas command allows you to start a process as another user. For our purposes, the syntax is something like: RUNAS /user:<UserName> program To run netsh using the runas command, you could change the code as follows: Shell "runas /user:administrator ""c:\windows\system32\cmd.exe /k netsh –c dhcp""" This will launch a command window and prompt you for the administrator password in the command window itself. Another way to do this is to use "runas" as the verb for the ShellExecute API function as follows: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hWnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String,Microsoft Office 2010 Professional Plus, _
   ByVal nShowCmd As Long) As Long Sub RunAsAdmin()
    Const SW_NORMAL As Long = 1     ShellExecute hWndAccessApp(), _
                 "runas",Microsoft Office 2010 Professional, _
                 "c:\windows\system32\cmd.exe",Microsoft Office 2007 Enterprise, _
                 "/k netsh -c dhcp",Microsoft Office 2007 Enterprise, _
                 "c:\windows\system32",Microsoft Office Professional 2007, SW_NORMAL
End Sub When you run the RunAsAdmin procedure, you should be prompted by Windows to run the specified command. <div

figure fast over cheap wow gold led by the lei." This lei did buy wow gold not die? "Uman disruption. Haha wow gold Uman Soul," I did not penalise respectable wow gold The freshman two did not penalize wow power leveling him, this instance, I.