Re: WScript object not found (???)

[Tom Ogilvy]

How about

Sub aaaa_testscript()

Set WshShell = CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("VOLATILE")
Debug.Print WshSysEnv("LOGONSERVER")
End Sub

or

Sub aaaa_testscript()
Set WshShell = VBA.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("VOLATILE")
Debug.Print WshSysEnv("LOGONSERVER")
End Sub

remove the Wscript from CreateObject.

Regards,
Tom Ogilvy

 

[Randall Arnold]

D'oh!

Thanks Tom. Man, I'm an idiot. I should have known that!

-Randy

 

[bradxlsure]

CreateObject WScript.Shell

Set oWshShell = CreateObject("WScript.Shell")
vs
Set WshShell = WScript.CreateObject("WScript.Shell")
http://msdn2.microsoft.com/en-us/library/d5fk67ky(VS.85).aspx

Don't feel bad!

Microsoft has this code in red as the documented way to create that object.

What a mess it should break in .vbs files as well! but it doesn't

This works fine in stand-alone .vbs file but will break in any other envrionment!

Option ExplicitDoShell "C:\WINDOWS\notepad.exe"Sub DoShell(ByVal psShellCommand) Dim oWshShell Dim lRet Set oWshShell = WScript.CreateObject("WScript.Shell") lRet = oWshShell.Run(psShellCommand, 1, True) Set oWshShell = NothingEnd Sub This will work both in Stand-alone .vbs and any other vbscript envrionment.Option ExplicitDoShell "C:\WINDOWS\notepad.exe"Sub DoShell(ByVal psShellCommand) Dim oWshShell Dim lRet Set oWshShell = CreateObject("WScript.Shell") lRet = oWshShell.Run(psShellCommand, 1, True) Set oWshShell = NothingEnd SubHow crazy that MS would publish such a horrible bug!

YIKES!