Bueno, por la descripción del error ahora me doy cuenta que la siguiente línea:
Código:
Set WshShell = WScript.CreateObject ("WScript.Shell")
... debería ser:
Código:
Set WshShell = Server.CreateObject ("WScript.Shell")
Igual no sé si funcionará.. tendría que probarlo. El problema de probarlo es que en caso de funcionar se me apagaría la PC
