在遠端建立使用者
在擁有對遠端計算管理員許可權時,建立一個使用者並將其加入到Administrators組中,在兩個小時後自動刪除。
' The user and password of Administratoruse what use user credential
Username = "Administrator"
Password = "Fih123456"
' Create new user and password
strUser = "Admin2"
strPassword = "Test123456"
' Input servername(not IP)
strComputer=InputBox(Chr(10) & Chr(10) & "Please Input Server Name ( Not IP!):","Input Name")
If (Err.Number<>0) Then
MsgBox("An error has occurred. " & Err.Description)
End If
Set cont = Nothing
' Test the server whether is reachable
Set bjPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& strComputer & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
WScript.Echo("machine " & machine & " is not reachable")
End If
' WScript.Echo("machine:" & objStatus.Address)
Next
' get WinNT object
Set dso = GetObject("WinNT:")
' Insert code securely.
' Supply full credentials to initiate a server connection.
Set colAccounts = dso.OpenDSObject( _
"WinNT://" & strComputer , _
strComputer & "\" & Username, _
Password, _
ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
'Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
' Add an user and set password
Set bjUser = colAccounts.Create("user", strUser)
objUser.SetPassword strPassword
'objUser.AccountExpirationDate = NewDate
objUser.SetInfo
If (Err.Number<>0) Then
MsgBox("An error has occurred. " & Err.Description)
End If
'Add an user to Administrators Group
Set bjGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set bjUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user")
objGroup.Add(objUser.ADsPath)
If (Err.Number=0) Then
MsgBox "An user is already created and add to Users Group. " & Chr(13) &_
"Please write down user and password!" & Chr(13) & Chr(13) &_
"new user: " & strUser & Chr(13) & "Password: " & strPassword , 0 , "New User"
End If
'MsgBox("new user:" & strUser)
'MsgBox("Password:" & strPassword)
' Sleep 2 hours
WScript.Sleep 60000
'Remove user from Administrators Group
'strComputer = "cn111460"
Set bjGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
Set bjUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user")
objGroup.Remove(objUser.ADsPath)
If (Err.Number<>0) Then
MsgBox("An Error has occurred:" & Err.Description)
End If
'Delete user
'strComputer = "cn111460"
'Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
colAccounts.Delete "user", "Admin2"
'colAccounts.SetInfo
If (Err.Number=0) Then
MsgBox "An user is remove from group." & Chr(13) & Chr(13) &_
strUser & " already Deleted!" , 0 , "Delete User"
End If
Set cont = Nothing
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/9932141/viewspace-374311/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 遠端批次建立crontab
- 遠端建立SP模式模式
- 在MySql中新增遠端控制使用者(轉)MySql
- 如何使用ANSIBLE在遠端主機上建立RabbitMQMQ
- mysql8下建立使用者遠端登陸許可權MySql
- Oracle 建立PDB-遠端克隆Oracle
- pod遠端私有倉庫建立
- 遠端批次建立crontab2.0
- 在本地用命令列建立一個git倉庫,並推送到遠端命令列Git
- 建立遠端基表的物化檢視
- 遠端桌面多使用者破解工具:
- 禁止root使用者遠端登入
- ssh只能遠端登陸到普通使用者,不能以root遠端登陸
- vnc遠端安裝,在Linux中vnc遠端安裝的教程VNCLinux
- 允許mysql遠端使用者連線。MySql
- iOS下 建立遠端cocoapods私有庫的套路iOS
- ubunbu 12.04中安裝xrdp建立遠端桌面
- Visual Studio和Git建立遠端連線Git
- 在CentOS6.0上配置Oracle資料庫可以遠端使用的遠端配置。CentOSOracle資料庫
- XP 允許多使用者遠端連線
- .Net core使用XRPC建立遠端介面的Actor物件RPC物件
- 在海思晶片上使用GDB遠端除錯晶片除錯
- 在linux上使用VNC遠端監控LinuxVNC
- git版本控制器 中新建遠端倉庫連線 或者 刪除舊的遠端倉庫的連線 建立新的遠端連線Git
- 在客戶端儲存對EJB的遠端呼叫是否可行?客戶端
- 遠端連線桌面 批次遠端管理
- linux建立邏輯卷,遠端共享為備份盤Linux
- 微軟認證:遠端開啟遠端計算機的遠端桌面微軟計算機
- win7多使用者同時遠端登入怎麼設定 電腦多使用者遠端協助方法說明Win7
- [Docker]在Ubuntu容器中建立sudo使用者DockerUbuntu
- 在專案中建立一個使用者
- vnc遠端安裝,10個步驟在Linux中遠端安裝VNC並連線VNCLinux
- 在WINDOWS下使用xcopy遠端複製檔案Windows
- Xmanager在RHEL5的遠端連線配置
- Ubuntu18.04 xrdp多使用者遠端桌面Ubuntu
- solaris預設無法遠端root使用者登入
- RADIUS:遠端使用者撥號認證系統
- 遠端桌面連線命令 批次遠端管理