I am trying to take a .txt file populated with servers and
populate a .vbs script with these names. For some reason it
is always reporting my local computer. I know the "." value
is for my local computer, but everything I put in (ie %1)
comes back with a syntax error. Is there an easier way
of doing this?

          Thanks for your help! Tom

Sorry, I am invoking the script with a batch file. Example below:
The Problem:

Using a batch file to invoke a .VB script I use the %1 variable and insert the computer name from a text file. My VB script keeps on assuming I am running on the local machine. The script works fine with hardcoded servernames, but I can't seem to find a way of inserting the remote machine variable.

Batch File text=

for /f %%a in (client.txt) do call :sub %%a
goto :eof

:sub
echo %1 >> c:\sms\verification\smsresults.txt
cscript //nologo smsclientcheck1.vbs %1 >> c:\sms\verification\smsresults.txt

goto :eof

VB Script text=

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'clisvcl.exe'")
If colProcesses.Count = 1 Then
    Wscript.Echo "SMS Client is running."
Else
    Wscript.Echo "SMS Client is not running."
End If

Why don't you just use the FileSystemObject to read client.txt directly from your VBS?

Thanks so much! Somebody wouldn't happen to have a sample of this in operation?

Try this (assuming client.txt contains each server name on a separate line and nothing else)

Again, thank you so much for the help! Unfortunately the script has issues on a line of the script.

Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

C:\SMS\Verification\smsclientcheck2.vbs(23, 3) Microsoft VBScript runtime error: Variable is undefined: 'objWMIService'

Exit code: 0 , 0000h

This is the line it is referencing. I have tried some different things to no avail. Any help is again appreciated! Thanks, Tom

 Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Its because the script has "Option Explicit" at the start, you are forced to declare all variables. Just add objWMIService to the list of declared variables (that's the Dim statement on line 2).

Thank you pgtips for all your help!!!