You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
32 lines
825 B
Plaintext
32 lines
825 B
Plaintext
set wshshell = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
WScript.Sleep(1)
|
|
|
|
wshshell.Run("Windisk.exe")
|
|
WScript.Sleep(10000)
|
|
wshshell.SendKeys("^V")
|
|
WScript.Sleep(1000)
|
|
'------------- Laufwerk C -----------------
|
|
wshshell.SendKeys("c%t")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("r")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("{TAB}{TAB}{TAB}{Right}{Right}")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("%o%a")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("%h%a{Enter}")
|
|
'--------------- Laufwerk D -----------------------
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("d%t")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("r")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("{TAB}{TAB}{TAB}{Right}{Right}")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("%o%a")
|
|
WScript.Sleep(2000)
|
|
wshshell.SendKeys("{Enter}")
|
|
|
|
wshshell.SendKeys("%{F4}") |