如何在VBS的帮助下禁用远程计算机上管理员组的用户帐户

Question

我需要做类似代码的事情

strUser = "myUser"
strComputer = "myremoteComuter"
strPassword = "myPassword_"

Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user",strUser,strPassword)


If Err.Number = 0 Then
objUser.AccountDisabled = true
objUser.SetInfo
End If

但是没有这样的方法GetObject需要3个参数。

Answer 1

我找到了一段代码：

Const ADS_SECURE_AUTHENTICATION = 1
Set objUser = GetObject("WinNT:").OpenDSObject("WinNT://MyDomain/UserNameToEnable,user",AdminUserName,AdminUserPassword, ADS_SECURE_AUTHENTICATION)
objUser.AccountDisabled = true
objUser.SetInfo