Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: hansis1

hansis1 (Level 1) - Jetzt verbinden

16.10.2007, aktualisiert 18.10.2007, 7477 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Windows Netzwerk
gelöst PC scheint in Domäne zu sein, ist es aber laut Eventlog nicht wirklich (5)

Frage von psch1991 zum Thema Windows Netzwerk ...

Windows Server
Administratorkonto in Domäne nicht vorhanden (8)

Frage von manuel1985 zum Thema Windows Server ...

Windows Server
Servergespeichertes Profil auf PC einer anderen Domäne laden (7)

Frage von Moros4223 zum Thema Windows Server ...

Netzwerkgrundlagen
Entfernten PC in meine Domäne einbinden (5)

Frage von braesident zum Thema Netzwerkgrundlagen ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...