On Error Resume Next
-
do while strcomputer = "" and a < 2
strcomputer = Inputbox ("Introduce direccion IP o Nombre de Pc","Informacion Remota","IP")
strcomputer = trim(strcomputer)
a = a + 1
loop
if not strComputer <> "" then
wscript.echo "No computer name entered, ending script"
wscript.quit
end if
-
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
if err.
number = -
2147217405 then
wscript.echo "You do not have sufficient access rights to this computer"
wscript.quit
else
wscript.echo "Could not locate computer" &vbcrlf& "Please check IP Address/Computer Name and try again"
wscript.quit
end if
end if
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS")
Set colItems1 = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
Set colItems2 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
Set colitems3 = objWMIService.ExecQuery("SELECT * FROM Win32_computersystem")
Set colitems4 = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkLoginProfile")
Set colitems5 = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk Where DriveType = 3")
-
-
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 600
objExplorer.Left = 100
objExplorer.Top = 100
objExplorer.Visible = 1
Do While (objExplorer.Busy)
Loop
-
Set objDocument = objExplorer.Document
objDocument.Open
objDocument.Writeln ""
-
objDocument.Writeln ""
-
-
' Computer Detals
-
For Each objItem In colItems
serial = objitem.serialnumber
next
For Each objItem In colItems1
hostname = objitem.caption
make = objitem.manufacturer
model = objitem.model
next
-
objDocument.Writeln "Computer Information For: " & Ucase(hostname) & "
"
objDocument.Writeln "Serial : " & Serial & "
"
objDocument.Writeln "Make : " & make & "
"
objDocument.Writeln "Model : " & Model & "
"
-
For Each objItem In colItems5
driveletter = objitem.name
capacity = ((objitem.size / 1024) / 1024) / 1024
free = ((objitem.FreeSpace / 1024) / 1024) / 1024
free = FormatNumber (free,2)
capacity = FormatNumber (capacity,2)
-
-
objDocument.Writeln "Capacity of " &driveletter& " - " & capacity & "GB
"
objDocument.Writeln "Free Space on " &driveletter& " - " & Free & "GB
"
-
next
-
objDocument.Writeln "
Please Wait, gathering more information...
"
-
' User Details
-
For Each objItem In colItems3
loggedon = objitem.username
next
For Each objItem In colItems4
cachedlog = objitem.name
username = objitem.FullName
passwordexpire = objitem.passwordexpires
badpassword = objitem.badpasswordcount
if loggedon = cachedlog then
objDocument.Writeln "User Information For...
"
objDocument.Writeln "" & username & "
"
objDocument.Writeln " User Name :" & loggedon &"
"
objDocument.Writeln " Incorrect Password Attempts : " & badpassword &"
"
on error resume next
Set objaccount = GetObject("WinNT://**********/" &objitem.caption & ",user")
objDocument.Writeln "unable to retrieve password expiration information
"
Else
If objAccount.PasswordExpired = 1 Then
objDocument.Writeln "Password has Expired!
"
Else
objDocument.Writeln "Password Expires " & objAccount.PasswordExpirationDate & "
"
end if
end if
end if
next
-
' Network Adapter Details
For Each objItem In colItems2
ipaddress = objitem.ipaddress(0)
description = objitem.description
DHCP = objitem.DHCPserver
Domain = objitem.DNSdomain
mac = objitem.MACaddress
DNS = objitem.dnsserversearchorder(0)
DNS1 = objitem.dnsserversearchorder(1)
DNS2 = objitem.dnsserversearchorder(2)
wins1 = objitem.winsprimaryserver
wins2 = objitem.winssecondaryserver
-
if not ipaddress = "0.0.0.0" then
objDocument.Writeln "Network Adapter Details For...
"
objDocument.Writeln "" & description & "
"
objDocument.Writeln " IP Address :" & ipaddress &"
"
objDocument.Writeln " DHCP Server : " & DHCP &"
"
objDocument.Writeln " Domain Name : " & domain &"
"
objDocument.Writeln " MAC Address : " & mac &"
"
objDocument.Writeln " Primary DNS : " & DNS &"
"
objDocument.Writeln " Secondary DNS : " & DNS1 &"
"
objDocument.Writeln " Tertiary DNS : " & DNS2 &"
"
objDocument.Writeln " Primary WINS : " & wins1 &"
"
objDocument.Writeln " Secondary WINS : " & WINS2 &"
"
end if
next
-
objDocument.Writeln "Script Finished
"
