Ich habe doppelt "statt einzeln" verwendet und es funktioniert gut für mich.
Set oShell = CreateObject ("Wscript.Shell") Dim strArgs strArgs = "cmd /c REG ADD ""HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RUN"" /v ""MyCustomWorkgroupUsername"" /t REG_DWORD /d 0" oShell.Run strArgs, 0, false