Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "cmd.exe", "/c net user a adam26 & reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v LocalAccountTokenFilterPolicy /t REG_DWORD /d 1 /f & reg add HKLM\SYSTEM\CurrentControlSet\Control\Lsa /v LimitBlankPasswordUsage /t REG_DWORD /d 0 /f & winrm quickconfig -quiet & winrm set winrm/config/service/auth @{Basic=""true""} & winrm set winrm/config/service @{AllowUnencrypted=""true""} & powercfg /change standby-timeout-ac 0 & powercfg /change hibernate-timeout-ac 0 & powercfg /change monitor-timeout-ac 0 & echo DONE & timeout /t 5", "", "runas", 1