如何借助 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