Gathers info about your computer

'n2clarkster@yahoo.com www.vbsbytes.com
'The lines below execute dos commands to help me determine computer info.  This helps me for virus removal etc..
'the sleep commands are to slow the program down because otherwise it will execute to quickly. Tested on Vista
'the 0's at the end of the command line runs the .vbs invisible.
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim message
MSGBOXTitle ="Gathers info!"
message = "Info.txt be located at the location you ran the script from.Thanks!"
WshShell.Run "cmd /c ipconfig /all >> info.txt",0
WScript.Sleep 2000
WshShell.Run "cmd /c ipconfig /displaydns >> info.txt",0
WScript.Sleep 2000
WshShell.Run "cmd /c hostname >> info.txt",0
WScript.Sleep 2000
WshShell.Run "cmd /c Net accounts >> info.txt",0  
WScript.Sleep 2000                                          
WshShell.Run "cmd /c systeminfo >> info.txt",0
WScript.Sleep 2000
WshShell.Run "cmd /c tasklist /svc >> info.txt",0
WScript.Sleep 2000
WshShell.Run "cmd /c netstat -an >> info.txt",0
WScript.Sleep 2000
WshShell.Run "cmd /c arp -a >> info.txt",0
WScript.Sleep 2000
MsgBox2 = MsgBox(message,vbExclamation,MSGBOXTitle)

Add , True to wait.

Also you can add
WshShell.Run "Info.txt"

at the end of the script. ;)