SAPIEN Technologies

You can do it all in the HTA. The whole point of using a HTA over vbScript is that you can use HTML form controls to gatherdisplay information to be used in the script (like InputBox). The script below is something I wrote a couple years ago to update the "ManagedBy" attribute on computer ...

Const FOR_READING = 1Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")Dim colFiles : Set colFiles = objFSO.GetFolder("C:Tick_Folder").FilesDim objFileFor Each objFile in colFiles If InStr(UCase(objFile.Name), "TICK") Then Dim objTextStream : Set objTe...

There isn't anything logged by default for something such as this. You can look at WMI Event Sinks to capture events such as deleting a file from a folder and return information about the event: http://msdn.microsoft.com/en-us/library/aa393013(VS.85).aspx http://msdn.microsoft.com/en-us/library/aa39...

Good catch JVierra, I didn't see the =

Is it GetObjectByID or GetElementByID?

Function blnPing(device_name) blnPing = False Dim colItems : Set colItems = GetObject("winmgmts:rootcimv2").ExecQuery &_ ("Select StatusCode from Win32_PingStatus Where Address = '" & device_name & "'") Dim objItem For Each objItem in colItems If objItem.Sta...

Per JVierra's suggestion, this should work with his example:

strComputer = Trim(Replace(File.ReadLine, vbTab, ""))

I guess the question is HOW did the DCOM permissions get turned off, which I'm sure it's not by default turned off.

Some printer setting are driver driven, so you may not be able to access it via WMI. Sometimes vendors will provide an EXE that you can pass CMD line parameters to the printer. The simplest method, assuming you have a network print server and would like the setting set globally, is to just do it at ...

Windows or 3rd party firewall?