'Get target host and credentials
Wscript.StdOut.Write "Please enter target host:"
strComputer = Wscript.StdIn.ReadLine 
strDomain = strComputer 
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()

'Create output file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("services_" + strComputer + ".tsv", True)

'Connect to remote system
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
    (strComputer, "root\cimv2", strUser, strPassword, "MS_409", "ntlmdomain:" + strDomain)

'Pull data from system
Set colItems = objSWbemServices.ExecQuery _
    ("Select * from Win32_Service")

'Write categories to file
objTextFile.WriteLine "Service" & vbtab & _
"Path" & vbtab & "State" & vbtab & "Start Mode" & vbtab & "ProcessID"

'Write values to file
For Each objService in colRunningServices
 objTextFile.WriteLine objService.DisplayName & VbTab & _
 objService.PathName & VbTab & _
 objService.State & VbTab & _
 objService.StartMode & VbTab & _
 objService.ProcessID
Next
objTextFile.Close