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, 7608 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
E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 1 TagE-Mail7 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 1 TagHyper-V

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 1 TagSicherheits-Tools1 Kommentar

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Server-Hardware

Lösung für Ersatz eines defekter Raid-Controllers

Anleitung von wellknown vor 2 TagenServer-Hardware4 Kommentare

Hallo, da ich nichts gefunden habe und selbst eine Lösung brauchte, hier eine kleine Anleitung für alle die vor ...

Heiß diskutierte Inhalte
Windows Server
Mit der alten Domäneprofil anmelden ohne Server
gelöst Frage von SyosseWindows Server37 Kommentare

Hallo Jungs Folgendes Szenario: Ich habe bei einem sehr kleinen Unternehmen (2Personen) den Server migriert, soweit hat alles geklappt. ...

Sicherheits-Tools
Virenprogramm lässt Programme nicht starten
Frage von SurferGirlSicherheits-Tools23 Kommentare

Hallo, ich bin neu hier, ich hoffe ich habe die richtige Rubrik gewählt. Falls nicht, tut es mir leid. ...

Windows Server
SQL Server Instanz (Eplan) auf WIN 2008 RC2 Server frisst RAM ohne Limit
Frage von derinderinderinWindows Server17 Kommentare

Hallo Zusammen, Wir haben hier einen Windows 2008 RC2 Server. Darauf läuft ein SQL Server Express 2014 Version 12.0.4232.0. ...

Windows 10
Best Practice für Schulungsräume
Frage von Sn0wFoxWindows 1016 Kommentare

Hallo, leider bin ich auch nach langer Suche nicht auf eine zufriedenstellende Nicht-Cloud-Lösung gestoßen und wollte mal Fragen ob ...