Check your version of WSH and WMI
Share|Check your version of WSH and WMI 'Script to display WSH, VBScript, WMI, and ADSI...
Check your version of WSH and WMI
Check your version of WSH and WMI
'Script to display WSH, VBScript, WMI, and ADSI versions
'Script created by Guy Thomas
On Error Resume Next
WScript.Echo "WSH Version: " & WScript.Version
Wscript.Echo "VBScript Version: " & ScriptEngineMajorVersion _
& "." & ScriptEngineMinorVersion
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer _
& "\root\cimv2")
Set colWMISettings = objWMIService.ExecQuery _
("Select * from Win32_WMISetting")
For Each objWMISetting in colWMISettings
Wscript.Echo "WMI Version: " & objWMISetting.BuildVersion
Next
Set objShell = CreateObject("WScript.Shell")
strAdsiVersion = _
objShell.RegRead("HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{E92B03AB-B707-11d2-9CBD-0000F87A369E}\Version")
If strAdsiVersion = vbEmpty Then
strAdsiVersion = objShell.RegRead("HKLM\SOFTWARE\Microsoft\ADs\Providers\LDAP\")
If strAdsiVersion = vbEmpty Then
strAdsiVersion = "ADSI is not installed."
Else
strAdsiVersion = "2.0"
End If
End If
WScript.Echo "ADSI Version: " & strAdsiVersion
(Contains 1 attachments.)
Share this:
Check if computer is locked using WSH
Check if computer is locked using WSH
Option Explicit
Dim strComputer
Dim objWMIService
Dim propValue
Dim objItem
Dim SWBemlocator
Dim UserName
Dim Password
Dim colItems
Dim strQuery
Dim strAssocQuery
Dim colLogon
Dim logon
Dim colUsers
Dim User
strComputer = "paj"
UserName = ""
Password = ""
strQuery="Select * from Win32_Process WHERE Name='explorer.exe'"
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
On Error Resume Next
Set objWMIService = SWBemlocator.ConnectServer(strComputer,_
"root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery(strQuery)
If IsEmpty(colItems) Then
WScript.Echo "Failed to connect or execute query"
WScript.Echo "Error#" & Err.Number & " " & Err.Description
WScript.Quit
Else
On Error GoTo 0
For Each objItem in colItems
'WScript.Echo "Handle: " & objItem.Handle
strAssocQuery="ASSOCIATORS OF {Win32_Process.Handle='" & _
objItem.Handle & "'} WHERE ResultClass=Win32_LogonSession"
Set colLogon=objWMIService.ExecQuery(strAssocQuery,,48)
For Each logon In colLogon
'WScript.Echo logon.LogonID
Set colUsers=objWMIService.ExecQuery(_
"ASSOCIATORS OF {Win32_LogonSession.LogonID='" &_
logon.LogonID & "'} WHERE ResultClass=Win32_UserAccount")
For Each User In colUsers
WScript.Echo "Current user logged on to " &_
UCase(strComputer) & " is probably " &_
user.domain & "\" & User.Name
Next
Next
Next
End If
(Contains 2 attachments.)
Share this:
Check if computer is locked using WSH
Share|Check if computer is locked using WSH Option Explicit Dim strComputer Dim...