re: Hey, Scripting Guy! Quick-Hits Friday: The Scripting Guys Respond to a Bunch of Questions (2/26/10)

i1RealTruth — Mon, 01 Mar 2010 04:56:09 GMT

I had the same problem with my old scripts not working in Vista or Windows 7. A nice guy like you gave me the code to add. Add Part 1 to the beginning and End If to the very end it will run in Windows 7. That also helps if you want to run a script as an admin on a Windows XP system running a restricted profile.

1) If you add this to the beginning of your code ....

' This adds the Admin Run Function for Windows Vista and 7

' You must put this at the top below computer and End If at the

' very end of the script

If WScript.Arguments.length = 0 Then

Set objShell = CreateObject("Shell.Application")

objShell.ShellExecute "wscript.exe", """" & _

WScript.ScriptFullName & """" &_

" RunAsAdministrator", , "runas", 1

Else

And at the very end....

End If