Alright well I just took care of this myself.

First I created two .vbs scripts and put them in my tools folder.

We'll call the first script "remote.vbs" and it is written below:

---

On error resume next

compstr = wscript.arguments(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFilePath = "\\LANSWEEPERSERVER\tools$\Remote_Client.vbs"
strDestination = "\\" & compstr & "\c$\"
Set objFileCopy = objFSO.GetFile(strFilePath)

objFileCopy.Copy(strDestination)

set WshShell = WScript.CreateObject("WScript.Shell")
return = WshShell.Run("%comspec% /c \\LANSWEEPERSERVER\tools$\psexec.exe \\" & compstr & " -i wscript.exe c:\remote_Client.vbs",0,True)

Set objFileDel = objFSO.GetFile("\\" & compstr & "\c$\remote_client.vbs")
objFileDel.Delete

If return = 1 Then
WshShell.Run("\\LANSWEEPERSERVER\tools$\lsremote.exe " & compstr & ""),0,True
End If

---

This script is run like a normal custom action with the computer name following the script in the configuration.

When it's run, a second script (remote_client.vbs) is copied to the client's c:\ drive and run using psexec. The second script is shown below:

---

On error resume next

intAnswer = Msgbox("Would you like Service Desk to take control of your machine?",vbYesNo, "Remote Control")

If intAnswer = vbYes Then
wscript.quit(1 Mod 255)
Else
wscript.quit(3 Mod 255)
End If

---

This script asks the user to accept the connection or not, then exits with an exit code, which the first script records and acts upon in determing whether to launch lsremote.exe or not.

I hope someone finds this useful

Nice. Looks like you can program. I pretend to program by writing scripts, so anything you can translate from my .vbs scribbles into decent code would be awesome.

I just finished another similiar script that locks the workstation remotely and I'll post it tomorrow.

Yeah I ended up using psexec - I try to keep the same method so that the scripts are easier to maintain:

First script -

---

On error resume next

compstr = wscript.arguments(0)
verify = MsgBox("Please confirm you wish to lock the desktop of " & compstr,vbYesNo, "Lock Computer")

If verify = vbNo Then
wscript.quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFilePath = "\\LANSWEEPERSERVERSHARE\remote_lock.vbs"
strDestination = "\\" & compstr & "\c$\"
Set objFileCopy = objFSO.GetFile(strFilePath)

objFileCopy.Copy(strDestination)

set WshShell = WScript.CreateObject("WScript.Shell")
return = WshShell.Run("%comspec% /c \\LANSWEEPERSERVERSHARE\psexec.exe \\" & compstr & " -i wscript.exe c:\remote_lock.vbs",0,True)

Set objFileDel = objFSO.GetFile("\\" & compstr & "\c$\remote_lock.vbs")
objFileDel.Delete

---

Second Script:

---

On Error Resume Next

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "%windir%\System32\rundll32.exe user32.dll,LockWorkStation"

------------------------------------------

Sure that would be great!

is it possible to have a return confirmation message from expert if the user accecpt or denied the notification for remote access?

Please try this beta : http://www.lansweeper.co...te-control-30-beta.aspx