Windows 7で画面をリモートロックするスクリプト

Question

私は数年前から使用していたスクリプトの作者によってこの方向を指摘されました。

これは、デスクトップのリモートロックを許可し、Windows XPではローカルとリモートで正常に動作し、Windows 7ではローカルで正常に動作しますが、Windows 7マシンに対してリモートで使用しようとすると動作しません。 これは数年前から大変役に立ちましたが、非常に便利でしたが、最近Windows 7マシンをサイトに導入し始めました。アップグレードが完了すると、これ以上使用することはできません。

私が持っているsame questionは数年前にポーズを取られましたが、未回答でした。ここ
はVBSコードです：私のWin7の64ビットにrundll32.exe user32.dll,LockWorkStationを実行

' StartProcess.vbs 
' Sample VBScript to start a process. Inputbox for name 
' Author Guy Thomas http://computerperformance.co.uk/ 
' Version 2.2 - December 2005 
' -------------------------------------------------------' 
Option Explicit 
Dim objWMIService, objProcess 
Dim strShell, objProgram, strComputer, strExe, strInput 
strExe = "rundll32.exe user32.dll,LockWorkStation" 
' Input Box to get name of machine to run the process 
Do 
strComputer = (InputBox(" ComputerName to Run Script",_ 
"Computer Name")) 
If strComputer <> "" Then 
strInput = True 
End if 
Loop until strInput = True 

' Connect to WMI 
set objWMIService = getobject("winmgmts://"_ 
& strComputer & "/root/cimv2") 
' Obtain the Win32_Process class of object. 
Set objProcess = objWMIService.Get("Win32_Process") 
Set objProgram = objProcess.Methods_(_ 
"Create").InParameters.SpawnInstance_ 
objProgram.CommandLine = strExe 

'Execute the program now at the command line. 
Set strShell = objWMIService.ExecMethod(_ 
"Win32_Process", "Create", objProgram) 

'WScript.echo "Created: " & strExe & " on " & strComputer 
WSCript.Quit 
' End of Example of a Process VBScript 

Answer 1

は、画面をロックするので、これはかなりOKらしいです。 http://msdn.microsoft.com/en-us/library/windows/desktop/aa376875(v=vs.85).aspxを見たとき、私は唯一の 対話型デスクトップ上で実行中のプロセスによって

LockWorkStation関数は呼び出し可能であるをお読みください。また、ユーザーはログオンしていなければなりません。 ワークステーションをロックできません。

私はWMIに関する経験はありませんが、WMIは対話型デスクトップでrundll32.exeを実行しないと想定しています。

Answer 2

これは、リモートのWindows 7 x64システムで私のために働いている：

psexec.exe -accepteula \\REMOTECOMPUTERNAME -i -s %windir%\system32\rundll32.exe user32.dll,LockWorkStation 

よろしく