This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
I keep getting an Expected Statement error typing to run the following script:
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.FileExists("c:\Files\RCHostID.reg") Then
strCMD = "regedit /s c:\Files\RCHostID.reg ""HKEY_USERS\S-1-5-18\Software\Dell SecureWorks"""
objShell.Run(strCmd)
strCMD = "sc config ""redcloak"" start= auto"
objShell.Run(strCmd)
WScript.Sleep 5000
strCMD = "sc start ""redcloak"""
objShell.Run(strCmd)
Set objShell = Nothing
Set objFSO = Nothing
Just based upon your posted blocks of code it doesn't look like valid VBS to me. Besides the lack of set statements that are generally needed you have what looks like an if statement for the file exists but you have no if, just the then. Please post the entire script as is so we can confirm the actual problem.
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.FileExists("c:\Files\RCHostID.reg") Then
strCMD = "regedit /s c:\Files\RCHostID.reg ""HKEY_USERS\S-1-5-18\Software\Dell SecureWorks"""
objShell.Run(strCmd)
strCMD = "sc config ""redcloak"" start= auto"
objShell.Run(strCmd)
WScript.Sleep 5000
strCMD = "sc start ""redcloak"""
objShell.Run(strCmd)
Set objShell = Nothing
Set objFSO = Nothing
This still isn't a valid VBS file. Please copy the contents of the VBS text file, use the Code Sample button in the comment editor and paste in your code. I would expect to see '... for comments, an if to go with that then statement, etc. Specifically,
objFSO.FileExists("c:\Files\RCHostID.reg") Then
this isn't a valid if statement, see here. You're missing the starting if and the end if that identifies the end of the loop which I suppose is the bottom of your VBS file.
If objFSO.FileExists("c:\files\rchostid.reg") Then
...
End If