Puedes hacerlo de diversas forma la más sencilla es ejecutando el comando iisreset directamente usando VBS
Código vb:
Ver originalSet objShell=CreateObject("WScript.Shell")
Set svc = GetObject("WINMGMTS:{impersonationLevel=impersonate,(Security)}!\\.\ROOT\CIMV2")
Set objExecObject = objShell.Exec("cmd /c iisreset NOMBRESERVIDOR")
wscript.quit
Aquí tienes otras formas de hacerlo
http://msdn.microsoft.com/en-us/libr...8VS.90%29.aspx