[VBS] RunAs Script

[Verwijderd]

Ik ben bezig een script in elkaar aan het flansen gezien ik er weinig verstand van hebt. Ik ben tot zover gekomen. Echter wil ik met een inputbox een user opgeven waarmee met runas de remote assistent word opgestart. Ik krijg echter steeds de melding "Server niet beschikbaar". Wat doe ik fout ? Ik kom er echt niet meer uit. Als ik de inputbox vervang met " strUserName = objADSystemInfo.userName" doet deze het wel, maar ik wil met een inputbox een user opgeven.

DIM objWSShell
DIM objADSystemInfo
DIM strUserName
DIM strLSAUserName

SET objWSShell = WScript.CreateObject("WScript.Shell")
SET objTest = CreateObject("ADSystemInfo")

strComputer = inputbox( "Please enter a computername:", "Get MAC and IP adres" )
SET objUser = GetObject("LDAP://"&strUsername)

strLSAUserName = objTest.domainShortName&"\LSA"&objUser.sAMAccountName
objWSShell.run "C:\WINDOWS\system32\runas.exe /user:"&strLSAUserName&" ""cmd.exe /c start IEXPLORE.EXE hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/Remote%20Assistance/Escalation/Unsolicited/unsolicitedrcui.htm""",1,True

[TheRookie]

Heb geen VBS kennis, maar bevat objADSystemInfo.userName niet toevallig "domain\user" en is de input alleen "user"

[Verwijderd]

Opgelost:

DIM objWSShell
DIM objADSystemInfo
DIM strUserName

SET objWSShell = WScript.CreateObject("WScript.Shell")

StrUsername = inputbox( "Please enter a username:", "Remote Assistance" )
objWSShell.run "C:\WINDOWS\system32\runas.exe /user:"&strUserName&"@europe ""cmd.exe /c start IEXPLORE.EXE hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/Remote%20Assistance/Escalation/Unsolicited/unsolicitedrcui.htm""",1,True