Wednesday, October 24, 2007

Computer details....

Below script will tell you about your account details, OS details and installed printer details ->

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objOS in colOSes
Wscript.Echo "Computer Name: " & objOS.CSName
Wscript.Echo "Caption: " & objOS.Caption 'Name
Wscript.Echo "Version: " & objOS.Version 'Version & build
Wscript.Echo "Build Number: " & objOS.BuildNumber 'Build
Wscript.Echo "Build Type: " & objOS.BuildType
Wscript.Echo "OS Type: " & objOS.OSType
Wscript.Echo "Other Type Description: " & objOS.OtherTypeDescription
Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "User Domain = " & WshNetwork.UserDomain
WScript.Echo "Computer Name = " & WshNetwork.ComputerName
WScript.Echo "User Name = " & WshNetwork.UserName
Set objComputer = CreateObject("Shell.LocalMachine")
Wscript.Echo "Shutdown allowed: " & objComputer.IsShutdownAllowed

Wscript.Echo "Friendly UI enabled: " & objComputer.IsFriendlyUIEnabled
Wscript.Echo "Guest access mode: " & objComputer.IsGuestAccessMode
Wscript.Echo "Guest account enabled: " & _ objComputer.IsGuestEnabled(0)
Wscript.Echo "Multiple users enabled: " & _ objComputer.IsMultipleUsersEnabled
Wscript.Echo "Offline files enabled: " & _ objComputer.IsOfflineFilesEnabled
Wscript.Echo "Remote connections enabled: " & _ objComputer.IsRemoteConnectionsEnabled
Wscript.Echo "Unlock enabled: " & objComputer.IsUndockEnabled
Set WshNetwork = WScript.CreateObject("WScript.Network")

Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Network drive mappings:"

For i = 0 to oDrives.Count - 1 Step 2
WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next
WScript.Echo "Network printer mappings:"
For i = 0 to oPrinters.Count - 1 Step 2
WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next

Set objWMIService = Nothing
Set WshNetwork = Nothing
Set colOSes = Nothing