در مقاله قبلی اسکریپتی را ارائه کردم که در صورتی که شما حقوق دسترسی کافی به کامپیوتری را که می خواهید ریموت آن را فعال کنید داشتید به خوبی کار می کرد ولی در صورتی که کامپیوتر مورد نظر شما دارای کد کاربری و کلمه عبور یا دامنه جداگانه بود چطور؟
اسکریپت زیر به خوبی این کار را برای شما انجام می دهد , این اسکریپت نام یا آی پی کامپیوتر , کد کاربری , کلمه عبور و دامین را می پرسد.
Const wbemImpersonationLevelImpersonate = 3
Const wbemAuthenticationLevelPktPrivacy = 6
Const ENABLE_CONNECTIONS = 1
Const DISABLE_CONNECTIONS = 0
strComputer = InputBox(“Target Computer”, “Enable Remote Desktop”, default, 100, 100)
If strComputer=”" Then
WScript.Echo “Terminated due to missing parameter.”
WScript.Quit
End If
strDomain = InputBox (“Domain”, “Enable Remote Desktop”, default, 100, 100)
If strDomain=”" Then
WScript.Echo “Terminated due to missing parameter.”
WScript.Quit
End If
strUser = InputBox (“Username”, “Enable Remote Desktop”, default, 100, 100)
If strUser=”" Then
WScript.Echo “Terminated due to missing parameter.”
WScript.Quit
End If
strPass = InputBox (“Password”, “Enable Remote Desktop”, default, 100, 100)
If strPass=”" Then
WScript.Echo “Terminated due to missing parameter.”
WScript.Quit
End If
strNameSpace = “root\cimv2″
strClass = “Win32_TerminalServiceSetting”
Set objSWbemLocator = CreateObject(“WbemScripting.SWbemLocator”)
Set objSWbemServices = objSWbemLocator.ConnectServer _
(strComputer, strNameSpace, strUser, strPass)
objSWbemServices.Security_.ImpersonationLevel =wbemImpersonationLevelImpersonate
objSWbemServices.Security_.AuthenticationLevel =wbemAuthenticationLevelPktPrivacy
Set objGroup = GetObject(“WinNT://” & strComputer & “/Remote Desktop Users”)
Set objNTProvider = GetObject(“WinNT:”)
Set objUser = objNTProvider.OpenDSObject(“WinNT://” &strDomain& “/” &strUser& “”,lcladmin,lcladminpass,1)
objGroup.Add(objUser.ADsPath)
Set colClass = objSWbemServices.ExecQuery(“Select * from ” & strClass)
For Each objTing in colClass
errAngivelse = objTing.SetAllowTSConnections(ENABLE_CONNECTIONS)
Next
If errAngivelse = 0 THEN
Call MsgBox (“Succesfully enabled on ” & strComputer & “. “, ۶۴, “Enable Remote Desktop”)
Else
Call MsgBox (“Could not enable on ” & strComputer & “. “, ۶۴, “Enable Remote Desktop”)
End If
موفق باشید
دیدگاه خود را بیان کنید.
باید وارد سایت شده باشید برای دیدگاه دادن