Windows 7 Professional Running a Command as Admini

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,Office 2010 Professional Plus, 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,Office 2007 Professional, _
   ByVal lpFile As String,Office 2007 Product Key, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long Sub RunAsAdmin()
    Const SW_NORMAL As Long = 1     ShellExecute hWndAccessApp(), _
                 "runas", _
                 "c:\windows\system32\cmd.exe",Windows 7 Professional, _
                 "/k netsh -c dhcp", _
                 "c:\windows\system32",Microsoft Office 2010 Product Key, SW_NORMAL
End Sub When you run the RunAsAdmin procedure, you should be prompted by Windows to run the specified command. <div