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}")