Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

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

Mitglied: hansis1

hansis1 (Level 1) - Jetzt verbinden

16.10.2007, aktualisiert 18.10.2007, 7593 Aufrufe, 4 Kommentare

Hallo!

Folgenden Code habe ich:
01.
strInput = InputBox("Bitte geben Sie den PC ein, der überprüft werden soll:") 
02.
 
03.
If StrPtr(strInput) = 0 Then 
04.
    funcExit("Abbruch") 
05.
Else 
06.
    If Len(strInput) = 0 Then 
07.
        funcExit("Es wurde kein PCangegeben!") 
08.
    Else 
09.
        funcCheck(strInput) 
10.
    End If 
11.
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
Mitglied: Dani
16.10.2007 um 10:43 Uhr
Hallo Hansi,
wo soll die Prüfung durchgeführt werden, Server - auf jeden Client oder Remote von xyz??


Grüße
Dani
Bitte warten ..
Mitglied: hansis1
16.10.2007 um 10:47 Uhr
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
Bitte warten ..
Mitglied: Logan000
16.10.2007 um 13:34 Uhr
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:
01.
Const Computername ="GesuchterPC" 
02.
Const Domain ="MyDomain" 
03.
Const ADS_SCOPE_SUBTREE = 2 
04.
Set objConnection = CreateObject("ADODB.Connection") 
05.
Set objCommand =   CreateObject("ADODB.Command") 
06.
objConnection.Provider = "ADsDSOObject" 
07.
objConnection.Open "Active Directory Provider" 
08.
 
09.
Set objCommand.ActiveConnection = objConnection 
10.
objCommand.CommandText = _ 
11.
    "Select Name operatingSystemVersion from " & _ 
12.
        "'LDAP://DC=" & Domain  & ",DC=com' where objectClass='computer'" & _ 
13.
            " and Name = '" & Computername  & "'" 
14.
 
15.
objCommand.Properties("Page Size") = 1000 
16.
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
17.
Set objRecordSet = objCommand.Execute 
18.
objRecordSet.MoveFirst 
19.
    Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value

Per skript ermitteln ob ein PC läuft: anpingen.
Bitte warten ..
Mitglied: hansis1
18.10.2007 um 13:20 Uhr
Hallo!

Danke für die Infos.
Es läuft!

lg
hansis
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBS Ordner erstellen - wenn nicht vorhanden!

gelöst Frage von freshman2017VB for Applications1 Kommentar

Hallo, ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert Ich würde jedoch mit ...

Batch & Shell

Vor dem Verzeichniss erstellen überprüfen ob Ordner vorhanden sind

Frage von TommylikBatch & Shell12 Kommentare

Hallo, Ich habe mir folgendes geschrieben: Funktioniert ohne Probleme. Es wird immer das Laufwerk D genutzt. Könnte mir einer ...

Batch & Shell

Batch-Datei soll überprüfen ob ein Verzeichnis vorhanden ist

gelöst Frage von synapsenstauBatch & Shell7 Kommentare

Moin, wie bringe ich bitte einer Batch-Datei bei, das sie "schaut" ob ein Verzeichnis vorhanden ist und wenn nicht ...

Viren und Trojaner

PC richtig auf Schädlinge überprüfen

gelöst Frage von Thema671Viren und Trojaner21 Kommentare

Hallo. Ich wollte fragen, welche Möglichkeiten ich habe einen Rechner auf Schadstoffe zu überprüfen. Also einen Virenscan. Ich würde ...

Neue Wissensbeiträge
Multimedia & Zubehör
AVM Fritz USB WLAN Sticks schneller einschalten
Tipp von NetzwerkDude vor 8 StundenMultimedia & Zubehör

Die AVM Fritz WLAN Sticks haben in der Firmware 2 Modis: Einmal als Massenspeicher und einmal als WLAN Netzwerkkarte ...

Windows Server

Windows Server Backup schlögt Fehl -Lösung 2008-2016

Tipp von BiGnoob vor 10 StundenWindows Server

Hi zusammen , ich möchte gerne einen Lösungstipp abgeben für folgenden fehler: lösung ist folgende:

Humor (lol)
Telekom vs. O2 - 3:2
Erfahrungsbericht von the-buccaneer vor 23 StundenHumor (lol)3 Kommentare

Unglaublich aber wahr: Nachdem mein privater Anschluss am 19.04.18 auf VOIP und VDSL umgestellt wurde, hatte ich seitdem 1,5 ...

Batch & Shell

Windows 10 Heimnetzgruppe abgeschaft. Ein Script für einfache Netzwerk - Freigabe im Heimnetzwerk

Anleitung von treehe vor 1 TagBatch & Shell3 Kommentare

Anleitung für eine einfache Netzwerkfreigabe unter Windows 10 Wie weiter hab mal ein kleines CMD - Script gebastelt. Womit ...

Heiß diskutierte Inhalte
Netzwerke
IP-Adresse am zweiten Domänencontroller fest vergeben - Server verschwunden
gelöst Frage von DanielG1974Netzwerke25 Kommentare

Ich hab ein Problem, was ich bisher noch nicht erlebt habe Ich habe erfolgreich einen zweiten Server mit ActiveDirectory ...

Windows Server
Windows Server 2012 - Update - Beim Booten bleibt der Server beim Windows Zeichen stehen
Frage von KeilbachWindows Server15 Kommentare

Hallo Zusammen, ich grüße euch, mein Name ist Michele. Ich bin hier ganz Neu - da ich einfach nicht ...

Windows Tools
Virtueller Drucker gesucht (Schnittstelle: USB oder Seriell)
Frage von chrisButterflyWindows Tools14 Kommentare

Hi, ich suche einen virtuellen Drucker, den ich über eine USB oder serieller Schnittstelle ansprechen kann. Dieser Drucker soll ...

Firewall
Sophos SG 125 nicht mehr erreichbar
Frage von GwaihirFirewall14 Kommentare

Hallo zusammen, ausgerechnet über die Feiertage stimmt etwas mit meiner Firmen-Firewall nicht. Es ist eine Sophos SG 125 und ...