‎12-08-2009 02:25 PM
msra.exe /offerra {computer}
"%ProgramFiles%\Internet Explorer\iexplore" hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/Remote%20Assistance/Escalation/Unsolicited/Unsolicitedrcui.htm
‎03-17-2010 10:26 PM
Return = WshShell.Run("\\servername\lstools\offerra\ralaunch.bat "& ComputerName, 1)
‎12-09-2009 04:56 PM
ComputerName = Wscript.Arguments(0)
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
strOS = objOperatingSystem.Caption
If strOS = "Microsoft Windows XP Professional" Then
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("iexplore.exe hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/Remote%20Assistance/Escalation/Unsolicited/Unsolicitedrcui.htm", 1)
Else
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("msra.exe /offerra "& ComputerName, 1)
End If
Next
cscript.exe \\SERVER\lstools$\OfferRemote.vbs {computer}
‎12-09-2009 04:38 PM
‎12-09-2009 09:52 AM
Experience Lansweeper with your own data. Sign up now for a 14-day free trial.
Try Now