VBS - Überprüfen, ob PC in Domäne vorhanden ist

geschlossengelöstFrage VB for Applications Entwicklung

Hallo!

Folgenden Code habe ich:

strInput = InputBox("Bitte geben Sie den PC ein, der überprüft werden soll:")  

If StrPtr(strInput) = 0 Then
    funcExit("Abbruch")  
Else
    If Len(strInput) = 0 Then
        funcExit("Es wurde kein PCangegeben!")  
    Else
        funcCheck(strInput)
    End If
End If

Ich möchte jetzt in der Funktion funcCheck überprüfen, ob der angegebene PC vorhanden ist!

Wie kann ich das erreichen?

Danke
Hansi

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 71039

Url: https://administrator.de/forum/vbs-ueberpruefen-ob-pc-in-domaene-vorhanden-ist-71039.html

Ausgedruckt am: 08.05.2025 um 08:05 Uhr

4 Kommentare

Neuester Kommentar

Hallo Hansi,
wo soll die Prüfung durchgeführt werden, Server - auf jeden Client oder Remote von xyz??

Grüße
Dani

Das Skript wird auf einem Server gestartet!
Nun möchte ich überprüfen, ob der eingegebene PC in der Domäne vorhanden ist:
In meinem Fall, ob der PC erreichbar (->eingeschalten) ist.

lg
Hansi

Das Skript wird auf einem Server gestartet!
Nun möchte ich überprüfen, ob der eingegebene PC in der Domäne vorhanden ist
In meinem Fall, ob der PC erreichbar (->eingeschalten) ist.

Meist Du jetzt ob ein Computerkonto im AD vorhanden ist oder ob der PC läuft Oder beides?
Schnell per Boardmittel.
Im AD nach Computern suchen liefert dir die 1. information.
Dann Rechtklick auf den Computer und Verwalten auch ganz schnell ob dieser läuft.

Per skript ermitteln ob ein Computerkonto im AD existiert:

Const Computername ="GesuchterPC"  
Const Domain ="MyDomain"  
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand =   CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  

Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name operatingSystemVersion from " & _  
        "'LDAP://DC=" & Domain  & ",DC=com' where objectClass='computer'" & _  
            " and Name = '" & Computername  & "'"  

objCommand.Properties("Page Size") = 1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
    Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value  