VisualBasic [Skript] Abfrage von 2008R2 (64Bit) an 32Bit Server

KHeine

Cadet 1st Year
Dabei seit
Feb. 2014
Beiträge
13
Hallo Zusammen,

folgendes Szenario:
Ich habe ein VBSctipt auf der Arbeit gebastelt, was eine Anfrage an unseren Domain Controller Schickt, in welchen Gruppen ein User ist. Ich schreibe dann die Antworten in ein Array und verarbeite die Informationen weiter.
Soweit so gut. Auf einem 32Bit (Server 2008)Terminal Server funktioniert es einwandfrei, auf unseren neuen, 64Bit (2008 R2), funktioniert es leider nicht.
Am Skript kann es wie gesagt nicht liegen, da die Operatoren unter 32 und 64 Bit identisch sind.
Der Domain Controller ist auch ein 32 Bit Server.

Hier der Auszug aus dem Abfrage Script:
Code:
On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("BKS-TS07")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Group", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "Domain: " & objItem.Domain
      WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
      WScript.Echo "LocalAccount: " & objItem.LocalAccount
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "SID: " & objItem.SID
      WScript.Echo "SIDType: " & objItem.SIDType
      WScript.Echo "Status: " & objItem.Status
      WScript.Echo
   Next
Next


Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm: 
	WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
	Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
	& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
Unter 64 Bit knallt es gegen die Wand, 32 Bit funktioniert einwandfrei.
Vielleicht habt ihr noch Vorschläge,

Grüße
Kai
 
Top