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

[KHeine]

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:

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

 

[schalli110]

Unter 64 Bit knallt es gegen die Wand, 32 Bit funktioniert einwandfrei.

Kannst du das näher beschreiben, kommt eine Fehlermeldung? In welcher Zeile?

 

[KHeine]

Kannst du das näher beschreiben, kommt eine Fehlermeldung? In welcher Zeile?

Natürlich (:
in Zeile 14 Knallt es gegen die wand, also er bekommt keine Werte zurück.
Fehler: 0x80041010
Code: 080041010
Quelle: (Null)