4
VBS - Überprüfen, ob PC in Domäne vorhanden ist
Hallo!
Folgenden Code habe ich:
Ich möchte jetzt in der Funktion funcCheck überprüfen, ob der angegebene PC vorhanden ist!
Wie kann ich das erreichen?
Danke
Hansi
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 IfIch möchte jetzt in der Funktion funcCheck überprüfen, ob der angegebene PC vorhanden ist!
Wie kann ich das erreichen?
Danke
Hansi
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 71039
Url: https://administrator.de/contentid/71039
Printed on: April 20, 2024 at 01:04 o'clock
4 Comments
Latest comment
Hallo Hansi,
wo soll die Prüfung durchgeführt werden, Server - auf jeden Client oder Remote von xyz??
Grüße
Dani
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
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.
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 Per skript ermitteln ob ein PC läuft: anpingen.
Hallo!
Danke für die Infos.
Es läuft!
lg
hansis
Danke für die Infos.
Es läuft!
lg
hansis
