Vista - Environment Scripting Error

i have created a script to remove a set of applications from workstations. I
am testing this script on XP SP2, Vista Ultimate and Vista Business. On the
XP machines and the Vista Ultimate the script works fine. on the vista
Business machine I get the following error:

Microsoft VBScript runtime error: File name or class name not found during
Automation operation: 'Environment'

This is the snippet of code causing the problem:
'Create the working shell
Set WshShell = WScript.CreateObject("WScript.Shell")

Set wshenvironment = WshShell.Environment("Process")

C_Name = wshenvironment("COMPUTERNAME")

The intent is to create and output file that has the computer name as the
file name and lists the application removed. Once I get past this on the
Vista Business machine I can work the rest of it.

Any ideas on what might be missing? I thought it might be the visual
scripting but can't find one to install on vista.

To me this doesn't make sense and seems like you have a problem with your
base VBScript environment. I don't have a Vista Business build at hand,
just Enterprise and the code you posted works fine - I don't expect it to be
different on Vista Business.

You could try maybe downloading and installing the Windows Scripting Host
package like this -
http://www.microsoft.com/downloads/d...displaylang=en
and hopefully it will repair anything that's wrong.

I could be totally off here mind, but again i'm pretty sure Business doesn't
have a different implementation of VBScript than any other...

Hope this helps,
Jon

www.insidetheregistry.com

---

"Taztug" <Taztug@xxxxxx> wrote in message
news:5C9295B9-4DDA-4A5F-91B6-4D4F27A9E9EB@xxxxxx

"Taztug" <Taztug@xxxxxx> wrote in message
news:5C9295B9-4DDA-4A5F-91B6-4D4F27A9E9EB@xxxxxxHave you tried an alternative approach, e.g.
C_Name = WshShell.ExpandEnvironmentStrings("%ComputerName%")

"Taztug" <Taztug@xxxxxx> wrote in message
news:5C9295B9-4DDA-4A5F-91B6-4D4F27A9E9EB@xxxxxxYour snippet works fine on my laptop with Windows Vista Business. Can you
confirm that the environment variable has the expected value?

An alternative way to retrieve the NetBIOS name of the current computer is:

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Thanks to all who responded. The different options to get the computer name
will come in handy at other times. Unfortunately, as I suspected and as was
posted by Jon the WSH files were not installed. Once installed the script
ran fine.

"Jon Wallace" wrote: