Något fel.. men vet inte var.

Hej
Jag försöker starta om en dator remote. Men detta fungerar inte riktigt. Och jag ser inte vad felet kan vara.

set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("KonfPC.txt")

Set Wshell = createObject("Wscript.shell")

do while readfile.AtEndOfStream <> true
Wshell.run ("cmd.exe shutdown -r -m \\" & readfile.readline & " -f")
loop