Solved

VBS script to connect via IPC and return "correct" or "failed" password

Posted on 2008-06-16
3
855 Views
Last Modified: 2010-04-21
I need to run a script that will tell me:
1 is the computer on and responding to IPC queries?
2 "is this username/password' I'm using valid?


Why?
I can get serials from computer that are on and I have the password to, the rest fail (of course)
The script I want to write will tell me if I'm looking for a turned off computer or do I need to find the correct password?


BTW: I don't need this really written *for* me, just need the code snippets and/or Google search terms to help me find what I'm missing:
Is this computer responding? (do I need to find its last logon, has it logged in)
Is my password wrong?  (error code and what the heck to do with one)

On Error Resume Next
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate("excel")
 
'file output
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\Documents and Settings\All Users\Desktop\SERIALS.CSV", True)
 
 
Computers = Array("comp1","comp2")
For Each Computer in Computers
winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& Computer &""
'WScript.Echo winmgmt1
Set SNSet = nothing
Set SNSet = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS")
for each SN in SNSet
REM	MsgBox "The serial number for the specified computer is: " & Computer & SN.SerialNumber
REM    WshShell.Sendkeys (Computer)
REM    WshShell.Sendkeys ("{tab}")
REM    WshShell.Sendkeys (SN.SerialNumber)
REM    WshShell.Sendkeys ("{ENTER}")
 
' Output
a.Writeline (Computer)&","& (SN.SerialNumber)
Next
Next

Open in new window

0
Comment
Question by:TechniMemphis
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 65

Accepted Solution

by:
RobSampson earned 250 total points
ID: 21797705
Hi, try this. For requirement a) I've added a Ping function.
For requirement b) I've added an error check on the WMI connection....

Regards,

Rob.
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate("excel")
 
'file output
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\Documents and Settings\All Users\Desktop\SERIALS.CSV", True)
 
Computers = Array("comp1","comp2")
For Each Computer In Computers
	If Ping(Computer) = True Then
		On Error Resume Next
		winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& Computer &""
		If Err.Number <> 0 Then
			MsgBox "Error connecting to " & Computer & VbCrLf & "Error: " & Err.Number & VbCrLf "Description: " & Err.Description
			Err.Clear
		Else
			Err.Clear
			On Error GoTo 0
			'WScript.Echo winmgmt1
			Set SNSet = Nothing
			Set SNSet = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS")
			For Each SN In SNSet
				REM	MsgBox "The serial number for the specified computer is: " & Computer & SN.SerialNumber
				REM    WshShell.Sendkeys (Computer)
				REM    WshShell.Sendkeys ("{tab}")
				REM    WshShell.Sendkeys (SN.SerialNumber)
				REM    WshShell.Sendkeys ("{ENTER}")
 
				' Output
				a.Writeline (Computer)&","& (SN.SerialNumber)
			Next
		End If
	Else
		MsgBox Computer & " failed to respond to ping."
	End If
Next
 
Function Ping(strComputer)
	Dim objShell, boolCode
	Set objShell = CreateObject("WScript.Shell")
	boolCode = objShell.Run("Ping -n 1 -w 300 " & strComputer, 0, True)
	If boolCode = 0 Then
		Ping = True
	Else
		Ping = False
	End If
End Function

Open in new window

0
 

Author Closing Comment

by:TechniMemphis
ID: 31467647
Absolutely perfect!!
Made a couple changes for my situation and it worked like a charm!
Thank you!
Chad

0
 
LVL 65

Expert Comment

by:RobSampson
ID: 21818074
No problem. Thanks for the grade.

Regards,

Rob.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Recently I finished a vbscript that I thought I'd share.  It uses a text file with a list of server names to loop through and get various status reports, then writes them all into an Excel file.  Originally it was put together for our Altiris server…
Well hello again!  Glad to see you've made it this far without giving up.  In this, the fourth installment of my popular series, I'm going to cover functions and subroutines, what they are, and why they are useful.  Just in case you stumbled onto th…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

696 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question