VisualBasic Statusabfrage von Usern in einer anderen Domain

[KaeTuuN]

Aufgabe:
Client aus Domäne A soll eine Anfrage an Server in geschüttzer Domäne B stellen.
Client besitzt Accountdaten für Leserecht in Domäne B. Es soll abgefragt werden, ob ein beliebiger Account in Domäne B gesperrt ist oder nicht.

Problem:
Das ganze soll in VBScript sein.
Ich habe derzeit ein Programm, welches solche Daten im eigenen Netz sowie anderen ungeschützten Netzen abfragen kann. Wie bekomme ich nun die eingabe des Passworts hin?

Hier mal das derzeitige Programm:

Option Explicit

Const title = "Eingabe User-ID"
Const title2 = "Eingabe Domain"
Const title3 = "Eigenschaften User"

Dim oDomain, oUser, user, domain, UserFlags, txt, tmp, tmp2, Message, Message2

Message = "User-Kennung eingeben"
Message2 = "Domain-Kennung eingeben" & VbCrLf & "//. bedeutet lokal"

' Benutzer / Domäne abfragen
domain = GetDomain (domain, Message2, title2)
user = GetUser (user, Message, title)
Set oUser = GetObject("WinNT:" & domain & "/" & user)

' Eigenschaften abfragen / ausgeben
txt = "Konto deaktiviert: " & oUser.AccountDisabled & VbCrLf
txt = txt & "Konto gesperrt: " & oUser.IsAccountLocked

MsgBox txt, vbOKOnly + vbInformation, title3


Function GetUser (Value, Message, Title)
Dim tmp
 tmp = inputbox (Message, Title , Value)
 If tmp = "" Then 
   GetUser = Value
 Else
   GetUser = tmp
 End If
End Function

Function GetDomain (Value, Message2, Title)

Bin für jede Hilfe Dankbar!

Mfg Kae

 

[KaeTuuN]

So, also ich hab jetzt folgenden Ansatz, vielleicht kann mir damit jemand weiterhelfen:

Const strcmd = "cmd /c net use \\xxx.yyy. de\ipc$ passwort /user:xyz_leserecht"

Set objshell = CreateObject("wscript.shell")
Set objexec = objshell.Exec(strcmd)
Do While objExec.StdOut.AtEndOfStream <> True
    strResults= objExec.StdOut.ReadAll
Loop
    WScript.Echo strResults

Damit kann ich mich schonmal in besagter Domain B anmelden, aber ich weiss immernoch nicht, wie ich jetzt die Abfrage machen kann. Hat einer von euch vielleicht ne Ahnung, wie ich in der oben genannten Domain ne Active Directory abfragen kann? Ich weiss, dass das irgendwas mit "DC=xxx,DC=yyy..." is, aber keinen plan wo das hin muss etc..
Wäre für Hilfe echt dankbar!

Mfg Kae