- #1
H
H. Mahlberg
Guest
In der Registrierung unter HKEY_CLASSES_ROOT\Folder\shell einen neuen Schlüssel (Bsp.: Dameware...[) anlegen. Darunter wiederum einen neuen Schlüssel mit dem Namen command
Darunter den Standardwert wie folgt festlegen:
c:\Windows\system32\cscript.exe C:\MeineScripts\Dameware.vbs %d
(Verzeichnis C:\MeineScripts ggfls. anpassen.
Folgenden Code kopieren und unter Dameware.vbs abspeichern (Installationspfad von Dameware überprüfen):
Dim Rechner, erg
Dim fso, oShell, oExec
Set fso = CreateObject(Scripting.FileSystemObject)
Set oShell = WScript.CreateObject (WSCript.shell)
if WScript.Arguments.count <> 1 then
msgbox Fehler! Aufruf mit Rechner als Argument
End if
Rechner = WScript.Arguments(0)
if left(Rechner,2) <> \\ then
Msgbox Funktioniert nur mit RECHNERN!
else
Rechner = right(Rechner,len(Rechner)-2)
Set oExec = oShell.Exec(ping -n 1 -w 10 & Rechner)
Do While oExec.Status = 0
WScript.Sleep 100
Loop
erg = oExec.Stdout.Readall
if instr(1,erg, Antwort) > 0 then
oShell.Run C:\Programme\DameWare Development\DameWare NT Utilities\dwrcc.exe -c: -m: & Rechner
else
Msgbox Rechner & Rechner & nicht (mehr) online!
end if
end if
Set oShell = Nothing
Wie immer: Benutzung auf eigene Gefahr!
Darunter den Standardwert wie folgt festlegen:
c:\Windows\system32\cscript.exe C:\MeineScripts\Dameware.vbs %d
(Verzeichnis C:\MeineScripts ggfls. anpassen.
Folgenden Code kopieren und unter Dameware.vbs abspeichern (Installationspfad von Dameware überprüfen):
Dim Rechner, erg
Dim fso, oShell, oExec
Set fso = CreateObject(Scripting.FileSystemObject)
Set oShell = WScript.CreateObject (WSCript.shell)
if WScript.Arguments.count <> 1 then
msgbox Fehler! Aufruf mit Rechner als Argument
End if
Rechner = WScript.Arguments(0)
if left(Rechner,2) <> \\ then
Msgbox Funktioniert nur mit RECHNERN!
else
Rechner = right(Rechner,len(Rechner)-2)
Set oExec = oShell.Exec(ping -n 1 -w 10 & Rechner)
Do While oExec.Status = 0
WScript.Sleep 100
Loop
erg = oExec.Stdout.Readall
if instr(1,erg, Antwort) > 0 then
oShell.Run C:\Programme\DameWare Development\DameWare NT Utilities\dwrcc.exe -c: -m: & Rechner
else
Msgbox Rechner & Rechner & nicht (mehr) online!
end if
end if
Set oShell = Nothing
Wie immer: Benutzung auf eigene Gefahr!
