Semiautomatic deletion/creation/whatever

Ok.. you need to automate a klick-klick-klick-procedure… SendKeys can do the trick.

A big warning: This might be dangerous, if the script goes berserk… it might do whatever deletion/creation/manipulation in the wrong area…

Set oShell = CreateObject("WScript.Shell")

oShell.AppActivate "Configuration Manager Console" 
WScript.Sleep 500

For i = 1 To 10
	oShell.SendKeys "{DOWN}"
	WScript.Sleep 250
	oShell.SendKeys "{DELETE}"
	WScript.Sleep 250
	oShell.SendKeys "{ENTER}"

	WScript.Sleep 2000
Next
MsgBox "Done!"

Comments are closed.