WMI Connections Problem

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

WMI Connections Problem

Logged in as: Guest

arrSession:exec spGetSession 2,2,36433

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> WMI Connections Problem
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

WMI Connections Problem - 7/23/2006 6:47:14 PM

takeda kozo

Posts: 83
Score: 0
Joined: 11/9/2005
Status: offline

Hi All, just a general question regarding WMI connections to remote computers

I am running a script which will connect to the remote registry and retrieve certain keys. The script works fine if run in small blocks ..... but if i try to run more than 2000 machines then I start to encounter WMI connection errors (the errors occur roughly after a thousand or so machines have been reported on.......)

The error code i get is: 462

Just curious if this is a commen problem ? and if there is a way around it ? (apart from breaking up the list of hostnames to check)

Thanks

---------------

Post #: 1

RE: WMI Connections Problem - 7/24/2006 12:59:46 AM

DiGiTAL.SkReAM

Posts: 1194
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

I don't know what your script looks like, but I would suspect a loop that is overloading a variable or an object.
Maybe if you post your script we could provide more help?

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to takeda kozo)

Post #: 2

RE: WMI Connections Problem - 7/24/2006 12:49:21 PM

takeda kozo

Posts: 83
Score: 0
Joined: 11/9/2005
Status: offline

Thanks for the tip. I've set my Objects (eg: oWMIService = Nothing / oReg = Nothing) at the ends of my loops

I will re-run and see how it goes

If still fails I will past my script. Thanks for the advice mate

- TK

(in reply to DiGiTAL.SkReAM)

Post #: 3

RE: WMI Connections Problem - 7/24/2006 8:09:37 PM

takeda kozo

Posts: 83
Score: 0
Joined: 11/9/2005
Status: offline

OK, It still fails :(

In case i haven't mentioned, the purpose of this script is to check remote hosts to test & report on the following:

1) SMS Site Code
2) SMS Client Version
3) Check to see if our business critical hotfixes are installed

I have a little over 2000 hostnames in the list (machines.txt file). Everything runs ok until around the 1400 mark, and then I get literally back to back errors:

Error Number: 462
Error Description: The remote server machine does not exist or is unavailable

When watching the Wscript.exe file in task manager, it starts off with roughly 9MB of memory allocated. It takes roughly 2 hours to get to the 1400 mark, but by this stage the allocated memory is around the 44MB mark

I assume that the error could be resource related, but I have enough RAM to cover it (512MB) and in reality, 44MB isn't all that big

There are two scripts. The main one, and also a small "connectivity test" script. I had the problem where I would try and connect to a remote machines WMI and it would just hang.....so this secondary script is basically a test of the WMI connectivity before continuing with the main functions

One more thing. If you see anything I could have done better (more efficiently) or things that I should not be doing then please let me know. I am still very new to scripting, so this could be a good chance for me to learn from some of the more experienced people on this forum

Thank you

- TK

++++++++++++++++++++++++++++++++++++
Script 1 (main)
++++++++++++++++++++++++++++++++++++

'****************************************************************************************
dtmStart = Now()
Public Machine, strExactTime, Machine_Qty, oCountFile
Public Fullname, MainRow, flHang, Failure
Const HKEY_LOCAL_MACHINE = &H80000002
Const DeleteReadOnly = TRUE
Set oFSO = CreateObject("Scripting.FileSystemObject")
ScriptDIR = oFSO.GetParentFolderName(WScript.ScriptFullName)
Set oShell = CreateObject("WScript.Shell")
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oExcel.DisplayAlerts = False
Set oWorkbook = oExcel.Workbooks.Add
Set oWorksheet = oWorkbook.Worksheets(1)
Create_TimeStamp
strInputFile = "machines"
If oFSO.FileExists(ScriptDIR & "\" & strInputFile & ".txt") = 0 Then
  MsgBox "Unable to locate hostname input file . . ." & VbTab & VbCrLf & VbCrLf & _
    ScriptDIR & "\" & strInputFile & ".txt",48,"Input File Missing"   
  WScript.Quit
End If
Set oPCListCount = oFSO.OpenTextFile(ScriptDIR & "\" & strInputFile & ".txt")
oPCListCount.ReadAll
Machine_Qty = oPCListCount.Line
oPCListCount.Close
Set oPCList = oFSO.OpenTextFile(ScriptDIR & "\" & strInputFile & ".txt")
     
oWorksheet.Cells(1, 1).Value = "HOSTNAMES"
oWorksheet.Cells(1, 2).Value = "NETWORK STATUS"
oWorksheet.Cells(1, 3).Value = "IP ADDRESS"
oWorksheet.Cells(1, 4).Value = "SID"
oWorksheet.Cells(1, 5).Value = "USER NAME"
oWorksheet.Cells(1, 6).Value = "SITE CODE"
oWorksheet.Cells(1, 7).Value = "CLIENT VERSION"
oWorksheet.Cells(1, 8).Value = "MS-039"
oWorksheet.Cells(1, 9).Value = "MS-046"
oWorksheet.Cells(1, 10).Value = "MS-051"
oWorksheet.Cells(1, 11).Value = "MS-052"
oWorksheet.Cells(1, 12).Value = "MS-053"
oWorksheet.Cells(1, 13).Value = "MS06-001"
oWorksheet.Cells(1, 14).Value = "MS06-002"
oWorksheet.Cells(1, 15).Value = "MS06-003"
oWorksheet.Cells(1, 16).Value = "MS06-005"
oWorksheet.Cells(1, 17).Value = "MS06-013"
oWorksheet.Cells(1, 18).Value = "STATUS"
'****************************************************************************************
On Error Resume Next
TestCount = 0
MachineNo = 0
MainRow = 2

Do While Not oPCList.AtEndOfStream
Failure = 0
Machine = oPCList.ReadLine
  Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
      ExecQuery("select * from Win32_PingStatus where address = '"_
          & Machine & "'")
  For Each oStatus in oPing
  
oWorksheet.Cells(MainRow, 1).Value = Ucase(oStatus.Address)
          
      If IsNull(oStatus.StatusCode) or oStatus.StatusCode <> 0 Then 
          oWorksheet.Cells(MainRow, 2).Value = "OFFLINE"
          oWorksheet.Cells(MainRow, 3).Value = "N/A (Host Offline)"
          Failure = 1
      Else
       oWorksheet.Cells(MainRow, 2).Value = "ONLINE"
       oWorksheet.Cells(MainRow, 3).Value = oStatus.ProtocolAddress         
       Remote_WMI_Test
       
       If flHang = 1 Then
        oWorksheet.Cells(MainRow, 4).Value = "WMI Connect Fail"
  oWorksheet.Cells(MainRow, 4).Font.ColorIndex = 3
  Failure = 1
        Exit For
       Else
        Get_User_Info
        Get_SMS_Info
        HotFix_Check
       End If
                
      End If
  Next
  
TestCount = TestCount + 1
strName = ScriptDIR & "\" & TestCount - 1 & " of " & Machine_Qty & ".Complete"
If oFSO.FileExists(strName) Then
oCountFile.Close
WScript.Sleep 100
oFSO.DeleteFile(strName)
End If
Set oCountFile = oFSO.CreateTextFile(ScriptDIR & "\" & TestCount & " of " & Machine_Qty & ".Complete")
If TestCount = 10000 Then
MsgBox TestCount & " Machines Inspected.",64,"Manual Abort Triggered."
WScript.Quit
End If
If MachineNo = 50 Then
  MachineNo = 0
  oWorkbook.SaveAs(ScriptDIR & "\Hotfix Report - " & strExactTime & ".xls")
End If
If Failure = 1 Then 
oWorksheet.Cells(MainRow, 18).Value = "FAIL"
Else
oWorksheet.Cells(MainRow, 18).Value = "PASS"
End If
Set oPing = Nothing 
MainRow = MainRow + 1
MachineNo = MachineNo + 1  
Loop
oPCList.Close
oCountFile.Close
'*********************************
' Format Excel Report 
Set oRange = oExcel.Range("A1","Z1")
oRange.Font.Bold = True
oRange.Interior.ColorIndex = 41
oRange.Font.ColorIndex = 2
oExcel.ActiveWindow.Zoom = 75
oExcel.Cells.Select
'oExcel.Selection.Sort oExcel.Range("B2"),2,,,1,,1,1,1,False,1 ' Sort by Col B (Descending)
oExcel.Selection.Sort oExcel.Range("R2"),1,,,1,,1,1,1,False,1 ' Sort by Col R (Ascending)
'oExcel.Selection.Sort oExcel.Range("R2"),1,("B2"),2,("F2"),1,,,1,,1,1,1,False,1
oExcel.Cells.EntireColumn.AutoFit
oExcel.Rows("2:2").Select
oExcel.ActiveWindow.FreezePanes = True
Set oRange = oExcel.Range("A1")
oRange.Select
'oExcel.Selection.Sort Key1=oExcel.Range("B2"), Order1=xlAscending, Header=xlYes, OrderCustom=1, MatchCase=False, Orientation=xlTopToBottom, DataOption1=xlSortNormal
'*********************************
oWorkbook.SaveAs(ScriptDIR & "\Hotfix Report - " & strExactTime & ".xls")
oExcel.Quit
oFSO.DeleteFile(ScriptDIR & "\" & TestCount & " of " & Machine_Qty & ".Complete")
dtmEnd = Now()
RunTimeS = DateDiff("s", dtmStart, dtmEnd)
RunTimeM = DateDiff("m", dtmStart, dtmEnd)
RunTimeH = DateDiff("h", dtmStart, dtmEnd)
strValue = Round((60 * (Right((Round((RunTimeM / 60),2)), 3))),0)
If RunTimeM = 0 Then
  MsgBox "Script Complete. Thank you!" & vbCrLF & vbCrLf & _
  "Total Runtime: " & RunTimeS & " Seconds.",64,"Success"
ElseIf RunTimeH = 0 Then
  MsgBox "Script Complete. Thank you!" & vbCrLF & vbCrLf & _
  "Total Runtime: " & RunTimeM & " Minutes.",64,"Success"
Else
  MsgBox "Script Complete. Thank you!" & vbCrLF & vbCrLf & _
  "Total Runtime: " & RunTimeH & " Hours and " & strValue & " Minutes.",64,"Success"
End If
If Err.number <> 0 Then
oExcel.Quit
oFSO.DeleteFile(ScriptDIR & "\*.COMPLETE"), DeleteReadOnly
End If
WScript.Quit
'****************************************************************************************
Function Get_User_Info
On Error Resume Next
strCurrentUser = ""
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
  Machine & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"
strValueName = "LoggedOnUser"
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath, _
  strValueName,strCurrentUser
  
If IsNull(strCurrentUser) Then 
oWorksheet.Cells(MainRow, 4).Value = "SID UNKNOWN"
oWorksheet.Cells(MainRow, 5).Value = "USERNAME UNKNOWN"
ElseIf strCurrentUser = "" Then
oWorksheet.Cells(MainRow, 4).Value = "SID UNKNOWN"
oWorksheet.Cells(MainRow, 5).Value = "USERNAME UNKNOWN"
Else
Get_Username strCurrentUser
oWorksheet.Cells(MainRow, 4).Value = strCurrentUser 
oWorksheet.Cells(MainRow, 5).Value = Fullname
End If

Err.Clear
Set oReg = Nothing
End Function
'****************************************************************************************
Function HotFix_Check
On Error Resume Next
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
  Machine & "\root\default:StdRegProv")
Dim ArrHotFix(10,2)
Dim RowCount, ColCount
RowCount = 0
ColCount = 0
strMissing = ""
ArrHotFix(0,0) = "Software\Microsoft\Windows NT\CurrentVersion\HotFix\KB899588" 'MS-039
ArrHotFix(0,1) = "MS-039"
ArrHotFix(1,0) = "Software\Microsoft\Windows NT\CurrentVersion\HotFix\KB899589" 'MS-046
ArrHotFix(1,1) = "MS-046"
ArrHotFix(2,0) = "Software\Microsoft\Windows NT\CurrentVersion\HotFix\KB902400" 'MS-051
ArrHotFix(2,1) = "MS-051"
ArrHotFix(3,0) = "Software\Microsoft\Windows NT\CurrentVersion\HotFix\KB896688-IE6SP1-20051004.130236" 'MS-052
ArrHotFix(3,1) = "MS-052"
ArrHotFix(4,0) = "Software\Microsoft\Windows NT\CurrentVersion\HotFix\KB896424" 'MS-053
ArrHotFix(4,1) = "MS-053"
ArrHotFix(5,0) = "Software\Microsoft\Windows NT\CurrentVersion\HotFix\KB912919" 'MS06-001
ArrHotFix(5,1) = "MS06-001"
ArrHotFix(6,0) = "Software\Microsoft\Windows NT\CurrentVersion\HotFix\KB908519" 'MS06-002
ArrHotFix(6,1) = "MS06-002"
ArrHotFix(7,0) = "SOFTWARE\Classes\Installer\Products\2C7A323A8F6053246A7C72E73412D07B" 'MS06-003
ArrHotFix(7,1) = "MS06-003"
ArrHotFix(8,0) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Hotfix\KB911565" 'MS06-005
ArrHotFix(8,1) = "MS06-005"
ArrHotFix(9,0) = "SOFTWARE\Microsoft\Updates\Internet Explorer 6\SP1\KB912812-IE6SP1-20060322.182418" 'MS06-013
ArrHotFix(9,1) = "MS06-013"
ArrHotFix(10,0) = "SOFTWARE\Classes\Installer\Products\13725372F3D00724EB69D5BA00A7932B" 'MS06-003
ArrHotFix(10,1) = "OfficeXP SP3"
For i = 0 to 9
strKeyPath = ArrHotFix(RowCount,ColCount)
strKeyName = "Installed"

If i = 7 Then

strKeyPathOffSP3 = ArrHotFix(10,0)
 strKeyName = "Assignment"
 oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPathOffSP3,strKeyName,strValueOffSP3
 
 If strValueOffSP3 = 1 Then
 
  strKeyPath = ArrHotFix(RowCount,ColCount)
  oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strKeyName,strValue
  
   If strValue = 1 Then
    oWorksheet.Cells(MainRow, i + 8).Value = "YES"
   Else
    oExcel.Cells(MainRow, i + 8).Font.ColorIndex = 3 
    oWorksheet.Cells(MainRow, i + 8).Value = "NO"
   End If
      
 Else
  oWorksheet.Cells(MainRow, i + 8).Value = "N/A"
 End If
 
End If

If i = 9 Then
 strKeyName = "InstalledDate"
 oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strKeyName,strValue
 If Instr(strValue, "2006") Then
  oWorksheet.Cells(MainRow, i + 8).Value = "YES"
 Else
  oExcel.Cells(MainRow, i + 8).Font.ColorIndex = 3
  oWorksheet.Cells(MainRow, i + 8).Value = "NO"
 End If 
ElseIf i <> 7 Then
 oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strKeyName,strValue
 If strValue = 1 Then
  oWorksheet.Cells(MainRow, i + 8).Value = "YES"
 Else
  oExcel.Cells(MainRow, i + 8).Font.ColorIndex = 3
  oWorksheet.Cells(MainRow, i + 8).Value = "NO"
 End If  
End If

If i = 9 Then oReportFile.WriteLine
   
RowCount = RowCount + 1
Next

Set oReg = Nothing
For i = 8 to 17
If oWorksheet.Cells(MainRow, i).Value = "NO" Then Failure = 1

Next
Erase ArrHotFix
End Function
'****************************************************************************************
Function Create_TimeStamp
strExactTime = ""
MyYear = Year(now)
MyMonth = Month(now)
If Len(MyMonth) < 2 Then MyMonth = "0" & MyMonth
MyDay = Day(now)
If Len(MyDay) < 2 Then MyDay = "0" & MyDay
MyHour = Hour(now)
If Len(MyHour) < 2 Then MyHour = "0" & MyHour
MyMinute = Minute(now)
If Len(MyMinute) < 2 Then MyMinute = "0" & MyMinute
MySecond = Second(now)
If Len(MySecond) < 2 Then MySecond = "0" & MySecond
strExactTime = MyYear & MyMonth & MyDay & MyHour & MyMinute & MySecond
End Function
'****************************************************************************************
Function Get_UserName(strValue)
On Error Resume Next
Fullname = ""
Set objUser = GetObject("WinNT://XXXXXXX/"& strValue &"",user)
If Err Then
If strValue <> "" Then
Fullname = strValue
Else
Fullname= "USERNAME UNKNOWN"
End If

Else

Fullname = Ucase(objUser.FullName) 
End If
If Fullname = "" Then 
Fullname = strValue
ElseIf InStr(Fullname, "XXXXXX") Then
Fullname = "XXXXXX"
ElseIf Fullname = "XXXXXX (XXXXXX)" Then
Fullname = "XXXXXX" 
End If
Set objUser = Nothing
End Function
'****************************************************************************************
Function Get_SMS_Info
On Error Resume Next
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
  Machine & "\root\default:StdRegProv")
  
If Err.Number <> 0 Then
oExcel.Cells(MainRow, 6).Font.ColorIndex = 3
oWorksheet.Cells(MainRow, 6).Value = "Error Code: " & Err.Number 
oExcel.Cells(MainRow, 7).Font.ColorIndex = 3
oWorksheet.Cells(MainRow, 7).Value = "Details: " & Err.Description
Err.Clear
 
Else 
' GET SMS SITE CODE

strKeyPath = "SOFTWARE\Microsoft\SMS\Mobile Client"
strValueName = "AssignedSiteCode" 
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath, _
  strValueName,strValue
If Err.number = "-2147217405" Then
oExcel.Cells(MainRow, 6).Font.ColorIndex = 3
oWorksheet.Cells(MainRow, 6).Value = "ERR - " & Err.number  & " (" & Err.Description & ")"
ElseIf IsNull(strValue) Then
oExcel.Cells(MainRow, 6).Font.ColorIndex = 3
oWorksheet.Cells(MainRow, 6).Value = "NULL"
ElseIf strValue = "" Then
oExcel.Cells(MainRow, 6).Font.ColorIndex = 3
oWorksheet.Cells(MainRow, 6).Value = "NOT SET"
Else
oWorksheet.Cells(MainRow, 6).Value = strValue
End If

If Ucase(strValue) <> "XXX" Then Failure = 1

' GET SMS CLIENT TYPE / VERSION

strKeyPath = "SOFTWARE\Microsoft\SMS\Mobile Client"
strValueName = "ProductVersion" 
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath, _
strValueName,strValue

If strValue = "2.50.3174.1018" Then
oExcel.Cells(MainRow, 7).Font.ColorIndex = 3
'oWorksheet.Cells(MainRow, 7).Value = "Advanced Client"
oWorksheet.Cells(MainRow, 7).Value = strValue  
ElseIf strValue = "2.50.4160.2000" Then
'oWorksheet.Cells(MainRow, 7).Value = "Advanced Client - SP2"
oWorksheet.Cells(MainRow, 7).Value = strValue
ElseIf IsNull(strValue) Then  
oExcel.Cells(MainRow, 7).Font.ColorIndex = 3
'oWorksheet.Cells(MainRow, 7).Value = "Check Client Installation"
oWorksheet.Cells(MainRow, 7).Value = "NULL"     
Else 
oExcel.Cells(MainRow, 7).Font.ColorIndex = 3  
'oWorksheet.Cells(MainRow, 7).Value = "Legacy / Other"
If strValue <> "" Then 
 oWorksheet.Cells(MainRow, 7).Value = strValue
Else
 oWorksheet.Cells(MainRow, 7).Value = "UNKNOWN"
End If
End If

If strValue <> "2.50.4160.2000" Then Failure = 1

End If

Err.Clear
Set oReg = Nothing

On Error Goto 0
End Function
'****************************************************************************************
Function Remote_WMI_Test
On Error Resume Next
flHang = 0
intValue = Machine
Set oExec = oShell.Exec("WScript """ & ScriptDIR & "\WMICheck.vbs"""&" "& intValue)
       
Set oWMIService = GetObject("winmgmts:\\.\root\cimv2")       
    
    WScript.Sleep 500
    
    For i = 1 to 10
    
      Set colProcess = oWMIService.ExecQuery ("Select * from Win32_Process where ProcessID = " & oExec.ProcessID)
     
     If colProcess.Count = 0 Then Exit For
     
      If i = 10 Then
   
   ' Kill WMICheck.vbs after approx 10 Seconds
   
          For Each oProcess in colProcess
       
              oProcess.Terminate()
              flHang = 1
       
          Next
      
      Else
          Set colProcess = Nothing
          WScript.sleep 1000  
      
      End If
     
    Next 
  
Set colProcess = Nothing
Set oExec = Nothing
Set oWMIService = Nothing    
End Function

'****************************************************************************************

++++++++++++++++++++++++++++++++++++
Script 2 (WMI Connectivity Check)
++++++++++++++++++++++++++++++++++++

ANY IDEA'S ???

- TK

< Message edited by Country73 -- 7/25/2006 3:08:35 AM >

(in reply to takeda kozo)

Post #: 4

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> WMI Connections Problem

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts