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

VB Script zur Statusabfrage eines hochfahrenden PCs

Mitglied: cbli

cbli (Level 1) - Jetzt verbinden

12.11.2010 um 16:24 Uhr, 3623 Aufrufe, 2 Kommentare

Grundsätzliches:

Mein Vater möchte von zu Hause per VPN und Remote Desktop auf seinen PC in der Firma zugreifen. Dieses habe ich mit einem VB Script realisiert.
Der PC zuhause und in der Firma haben Windows XP Prof. mit SP3 installiert.


Was bereits funktioniert:

Das Script stellt automatisch die VPN Verbindung her,fährt den PC in der Firma per Wake on Lan hoch und startet dann automatisch Remote Desktop.
Er kann sich dann anmelden und später trennt das Script die Verbindung und fährt auch vorher auf Wunsch den PC in der Firma herunter.


Was nicht funktioniert:
Obiges funktioniert nur wenn der PC in der Firma bereits hochgefahren ist. Wird er erst mit Hilfe des Scripts hochgefahren (was funktioniert) ,kommt gleich der
Remote Desktop Befehl,der natürlich fehlschlägt weil der PC in der kurzen Zeit noch nicht hochgefahren ist.
Ich habe mir seither mit dem WScript.Sleep Befehl geholfen,aber ich möchte es eigentlich so lösen,daß irgendwie der "Hochfahrstatus" des Remote PC´s abgefragt wird.
Erst wenn der Remote PC bis zum Anmeldebildschirm hochgefahren ist ,soll das Script den Remote Desktop Befehl starten.

Lässt sich das irgendwie realisieren ?

Hier noch mein momentanes Script:

Dim rdpdatei
rdpdatei = "192.168.115.93"
msgbox "Es wird nun die VPN Verbindung hergestellt",64,"Hinweis"
Set WSHShell = CreateObject("WScript.Shell")


' VPN Verbindung herstellen
wshshell.run "rasphone -d VPN-Office",,true


' Ping Befehl
strComputer = "Rolf"

Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& strComputer & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
WScript.Echo "PC " & strComputer & " ist nicht online." & vbcrlf & vbcrlf & "Der PC wird jetzt gestartet....." & vbcrlf & vbcrlf & "Bitte etwas Geduld - Remote Desktop startet automatisch sobald der PC hochgefahren ist"


' Externes WOL Programm mit MAC Adresse starten
wshshell.run "d:\mc-wol (MAC) /a (Broadcast IP)", 1, true ' Rolf MaC


else
msgbox "PC ist bereits Online !!",64,"Hinweis"
End If
Next

' Remote Desktop wird gestartet
wshshell.run "%systemroot%\system32\mstsc.exe /console /w:1280 /h:1024 /V:" & rdpdatei

' Schleife die auf Beendigung des MSTSC Prozesses abfragt
Do

strComputer = "."
strProcess = "mstsc.exe"
strProgPath = "%SystemRoot%\system32\mstsc.exe"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '" & strProcess & "'")

Loop until colProcesses.Count = 0 ' Prozess läuft nicht mehr - Schleifenabruch


' Vebindung trennen und Remote PC herunterfahren
value = msgbox ("Soll der PC im Büro heruntergefahren werden, bevor die Verbindung getrennt wird ?",32 + vbYesNo,"Frage")

if value = vbyes then

Dim objShell, strComputer, strInput
Dim strShutdown
strComputer = "Rolf"

strShutdown = "shutdown -s -t 0 -f -m \\" & strComputer
set objShell = CreateObject("WScript.Shell")
objShell.Run strShutdown


msgbox "Verbindung wird jetzt getrennt",64,"Hinweis"
wshshell.run "rasphone -h VPN-Office"

end if

if value = vbno then
msgbox "Verbindung wird jetzt getrennt",64,"Hinweis"
wshshell.run "rasphone -h VPN-Office"
end if
Mitglied: ShitzOvran
12.11.2010 um 16:50 Uhr
und was ist, wenn du den rechner einfach solange anpingst, bis er eine erfolgreiche rückmeldung gibt... dann weißt du er ist bereit, und führt das screipt weiter aus
Bitte warten ..
Mitglied: cbli
12.11.2010 um 16:53 Uhr
Funktioniert nicht,da der Rechner ja schon kurz nach dem Einschalten auf den Ping Befehl reagiert,also lange bevor das OS hochgefahren ist.
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell

Probleme bei der Ausführung eines VB-Scriptes

Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server

Drucker entfernen in VB-Script

gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Entwicklung

VB Script Drucker hinzufügen

Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Neue Wissensbeiträge
Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 8 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 9 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 12 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 1 TagWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...