mojtaba_z
چهارشنبه 08 خرداد 1387, 13:50 عصر
سلام
من از كد زير براي اضافه كردن گروه Domain Users به گروه Remote Desktop User استفاده ميكنم تا از طريق Remote بتونم با User name مربوط به Client وارد كامپيوترش بشم و مشكلش رو حل كنم.
Dim DomainName
Dim UserAccount
Set net = WScript.CreateObject("WScript.Network")
local = net.ComputerName
DomainName = "Company.com"
UserAccount = "Domain Users"
set group = GetObject("WinNT://"& local &"/Remote Desktop Users")
on error resume next
group.Add "WinNT://"& DomainName &"/"& UserAccount &""
CheckError
sub CheckError
if not err.number=0 then
set ole = CreateObject("ole.err")
MsgBox ole.oleError(err.Number), vbCritical
err.clear
' else
' MsgBox "Done."
end if
end sub
اما مشكل اينجاست كه اگه كلاينتي با Username اي وارد كامپيوتر بشه كه اون User توي اون كامپيوتر Admin باشه (يعني اون User ادمين اون دستگاه شده باشه) آنوقت پس از Logon شدن اين اسكريپت درست اجرا ميشه ولي اگه يوزر Admin دستگاهش نباشه اون اسكريپت اجرا نميشه؟
اين مشكل رو چطوري رفع كنم؟
من از كد زير براي اضافه كردن گروه Domain Users به گروه Remote Desktop User استفاده ميكنم تا از طريق Remote بتونم با User name مربوط به Client وارد كامپيوترش بشم و مشكلش رو حل كنم.
Dim DomainName
Dim UserAccount
Set net = WScript.CreateObject("WScript.Network")
local = net.ComputerName
DomainName = "Company.com"
UserAccount = "Domain Users"
set group = GetObject("WinNT://"& local &"/Remote Desktop Users")
on error resume next
group.Add "WinNT://"& DomainName &"/"& UserAccount &""
CheckError
sub CheckError
if not err.number=0 then
set ole = CreateObject("ole.err")
MsgBox ole.oleError(err.Number), vbCritical
err.clear
' else
' MsgBox "Done."
end if
end sub
اما مشكل اينجاست كه اگه كلاينتي با Username اي وارد كامپيوتر بشه كه اون User توي اون كامپيوتر Admin باشه (يعني اون User ادمين اون دستگاه شده باشه) آنوقت پس از Logon شدن اين اسكريپت درست اجرا ميشه ولي اگه يوزر Admin دستگاهش نباشه اون اسكريپت اجرا نميشه؟
اين مشكل رو چطوري رفع كنم؟