Remote Shut Down or Log Off Script

Script Category: Security
Language: VBScript
Script Type: Full Script
Submitted by: ecold

Hey this script could be really useful. If you have a disgruntled employee or you have van idle server or some machine logged on that should not be and is posing a serious security risk, check this script out it prompts you with an option of what you want to do to a remote machine; power off, log of etc and then requests the comps host name and then carries out the specific function. Pretty neat script. Thanks ecold.

Download

AssetScan Script

This script  saved me hours of work, I had an assignment in work to compile a network inventory of the entire office extracting information such as Ip address, hostname, OS, Network cards, RAM yada yada yada…… You get the picture after some vb soul searching on google I came across a website code warrior which had a post by a software engineer Steven Kelly that included what I needed in a nutshell.

“A vb script that will remotely query and gather information from PCs in a network using IP & WMI, then output the results into an Excel spreadsheet. This script is extremely useful for asset management and tracking during hardware upgrades, moves, add-ons etc.”

This is exactly what it captures:

IP Address, Hostname, Domain Role, Make, Model, Serial Number, RAM, Operating System, Service Pack BIOS Revision, Processor Type, Processor Speed, Logged in user, Subnet Mask, Default Gateway, MAC Address, Date Installed, NIC #1 Model, NIC #2 Model, NIC #3 Model, NIC #4 Model, NIC #5 Model.

 

Download at: http://www.codeproject.com/vbscript/AssetScan.asp 

 

 

Workstation Script

A useful little script that writes the hostname underneath the My Computer icon. Its good for helpdesk techies!

Const sKey = “HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”

Dim oWSS,sTemp,sGarbage
On Error Resume Next
Set oWSS = WScript.CreateObject(“WScript.Shell”)
sTemp = oWSS.RegRead(sKey & “LocalizedString”)
If Err.Number = 0 Then
sGarbage = oWSS.RegRead(sKey & “LocalizedStringBackup”)
If Err.Number <> 0 Then
oWSS.RegWrite sKey & “LocalizedStringBackup”, sTemp, “REG_EXPAND_SZ”
End If
End If
oWSS.RegWrite sKey & “LocalizedString”, “My Computer %COMPUTERNAME%”, “REG_EXPAND_SZ“
Set oWSS = Nothing