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, 7599 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
Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 1 TagExchange Server4 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Suche Projektpartner

PC Recycling Projekte mit Flüchtlingen und Kids suchen Materialspenden und Mitmacher!

Erfahrungsbericht von NettePCyclePiraten vor 2 TagenSuche Projektpartner7 Kommentare

Hallöchen liebe Kollegen, ich betreue zwei PC-Gruppen im Raum Dortmund: "Ne#e PCycle Pir@ten" & "PCschr@uber Br@mbauer" Wir sind eine ...

iOS
IOS 12.2 beta und OpenVPN iPad und iPhone
Erfahrungsbericht von magicteddy vor 2 TageniOS

Moin, kleiner Hinweis an die experimentierfreudigen unter Euch: Bei der aktuellen beta gibt es ein Problem im Zusammenspiel zwischen ...

Vmware
VMware Tools 10.3 verfügbar
Information von sabines vor 2 TagenVmware

Eine Sicherheitslücke wird mit den Tools der Version 10.3 geschlossen, die Tools müssen auf jeder VM aktualisiert werden. Näheres ...

Heiß diskutierte Inhalte
Windows Netzwerk
Netzwerk einrichten - wie mache ich es richtig?
Frage von gintonikWindows Netzwerk23 Kommentare

Hallo, ich bin neu hier und erhoffe mir hier ein paar Antworten für meine Umsetzung zu erhalten. Kurz zu ...

CPU, RAM, Mainboards
4x 2 GB DDR2 1066 gesucht
gelöst Frage von Windows10GegnerCPU, RAM, Mainboards17 Kommentare

Hallo, ich plane den RAM meines Rechners aufzurüsten. Motherboard: Gigabyte X48 DS5 Der FSB steht bei 259, daher soll ...

Microsoft Office
Druckdatum nur auf ausgedrucktem Dokument anzeigen
gelöst Frage von eichi18Microsoft Office16 Kommentare

Hallo zusammen Ich versuche in einem Word Dokument das Druckdatum nur auf dem eigentlichen Ausdruck auszugeben und am Bildschirm ...

Samba
Samba-NAS Zugriff verweigert
gelöst Frage von VernoxVernaxSamba15 Kommentare

hallo ich schaffe es einfach nicht meinem User Rechte zum schreiben zu geben. Ich habe dies alles auf nem ...