Script to know Machine ID/IP,Location,Printer Information,WIFI signal info
Kindly help me on this ASAP.
Answers (4)
$comp = $env:computername $file = "c:\temp\test.txt" $printer= get-wmiobject win32_printer|format-list name|out-string $ip= get-wmiobject -query "Select IPAddress From Win32_NetworkAdapterConfiguration Where IPEnabled = True"| format-list IPaddress|out-string $wireless = NETSH WLAN SHOW INTERFACE $var=("Computer Name: $comp" + " Printers: $printer" + "IP: $ip" + "Wireless Info: $wireless") | out-file $file
Just curious....
How would a machine know it's location?
By WIFI signal info do you mean SSID?
I'm assuming since you are looking for wireless you want the wireless IP not the wired?
What format of script are you looking for?
This will get you started in Powershell.
$comp = $env:computername $file = "c:\temp\test.txt" $printer= get-wmiobject win32_printer|format-list name|out-string $ip= get-wmiobject -query "Select IPAddress From Win32_NetworkAdapterConfiguration Where IPEnabled = True"| format-list IPaddress|out-string $var=("Computer Name: $comp" + " Printers: $printer" + "IP: $ip") | out-file $file
Comments:
-
i wrote 2 VB scripts that will show installed printer and check system info - brighstarcuit 12 years ago
' Display error number and description if applicable
If Err Then ShowError
' Query installed printers' properties
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)
' Display error number and description if applicable
If Err Then ShowError
' Format output for display
For Each objItem in colItems
strMsg = strMsg & vbCrLf _
& "Printer Name : " & objItem.Name & vbCrLf _
& "Port Name : " & objItem.PortName & vbCrLf _
& "Driver Name : " & objItem.DriverName & vbCrLf _
& "Server Name : " & objItem.ServerName & vbCrLf _
& "Share Name : " & objItem.ShareName & vbCrLf
Next
' Display the results
WScript.Echo strMsg
'Done
WScript.Quit(0)
Sub ShowError()
strMsg = vbCrLf & "Error # " & Err.Number & vbCrLf & _
Err.Description & vbCrLf & vbCrLf
Syntax
End Sub
Sub Syntax()
strMsg = strMsg & vbCrLf _
& "ShowPRN.vbs, Version 1.00" & vbCrLf _
& "Display installed printers properties for " _
& "any computer on the network" & vbCrLf & vbCrLf _
& "Usage: CSCRIPT //NOLOGO SHOWPRN.VBS " _
& "[ computer_name ]" & vbCrLf & vbCrLf _
& "Where: " & Chr(34) & "computer_name" & Chr(34) _
& " is the optional name of a remote" & vbCrLf _
& " computer (default is local computer " _
& "name)" & vbCrLf & vbCrLf _
& "Written by Rob van der Woude" & vbCrLf _
& "http://www.robvanderwoude.com" & vbCrLf & vbCrLf _
& "Created with Microsoft's Scriptomatic tool" & vbCrLf _
& "http://www.microsoft.com/technet/treeview/default.asp" _
& "?url=/technet/scriptcenter/WMImatic.asp" & vbCrLf
WScript.Echo strMsg
WScript.Quit(1)
End Sub
@echo off
ver | find "2003" > nul
if %ERRORLEVEL% == 0 goto ver_2003
ver | find "XP" > nul
if %ERRORLEVEL% == 0 goto ver_xp
ver | find "2000" > nul
if %ERRORLEVEL% == 0 goto ver_2000
ver | find "NT" > nul
if %ERRORLEVEL% == 0 goto ver_nt
if not exist %SystemRoot%\system32\systeminfo.exe goto warnthenexit
systeminfo | find "OS Name" > %TEMP%\osname.txt
FOR /F "usebackq delims=: tokens=2" %%i IN (%TEMP%\osname.txt) DO set vers=%%i
echo %vers% | find "Windows 7" > nul
if %ERRORLEVEL% == 0 goto ver_7
echo %vers% | find "Windows Server 2008" > nul
if %ERRORLEVEL% == 0 goto ver_2008
echo %vers% | find "Windows Vista" > nul
if %ERRORLEVEL% == 0 goto ver_vista
goto warnthenexit
:ver_7
:Run Windows 7 specific commands here.
echo Windows 7
goto exit
:ver_2008
:Run Windows Server 2008 specific commands here.
echo Windows Server 2008
goto exit
:ver_vista
:Run Windows Vista specific commands here.
echo Windows Vista
goto exit
:ver_2003
:Run Windows Server 2003 specific commands here.
echo Windows Server 2003
goto exit
:ver_xp
:Run Windows XP specific commands here.
echo Windows XP
goto exit
:ver_2000
:Run Windows 2000 specific commands here.
echo Windows 2000
goto exit
:ver_nt
:Run Windows NT specific commands here.
echo Windows NT
goto exit
:warnthenexit
echo Machine undetermined.
:exit
Comments:
-
This would just get the OS. That wasn't one he was looking for. - dugullett 12 years ago