一段VBS怎么转为AU3~~关于加管理员的~~

boyhong

On Error Resume Next
Dim objComputer
Dim objAdmins
Dim objGroup
Dim strComputer

Set objComputer = Wscript.CreateObject("Wscript.Network")
strComputer = objcomputer.ComputerName

Set objAdmins = GetObject("WinNT://" & strComputer & "/Administrators")
Set objGroup = GetObject("WinNT://yucai/testuser1")

objAdmins.Add(objGroup.ADspath)


感谢各位。

[ 本帖最后由 boyhong 于 2009-3-20 09:34 编辑 ]

xrbenbeba

$strComputer = @ComputerName ;或者用WMI获取远程计算机名,这里是获取本地计算机名称

$objAdmins =ObjGet("WinNT://" & $strComputer & "/Administrators")
$objGroup = ObjGet("WinNT://yucai/testuser1")

$objAdmins.Add($objGroup.ADspath)

boyhong

感谢楼上~~~~非常感谢~~~
刚才因为着急：用了如下DOS命令实现了~~
#include <Process.au3>
$rcadmin = _RunDos("net localgroup administrators yucai/testuser1 /add")

感谢`~ObjGet 之类等等许多函数解释我一直没有汉化版~~~因语言问题，目前接触的AU3都是些汉化过的资料。。。

xrbenbeba

原帖由 boyhong 于 2009-3-20 09:30 发表
感谢楼上~~~~非常感谢~~~
刚才因为着急：用了如下DOS命令实现了~~
#include
$rcadmin = _RunDos("net localgroup administrators yucai/testuser1 /add")

感谢`~ObjGet 之类等等许多函数解释我一直没有汉化版 ...

ObjGet这些函数是和vbs的意思一样  还解释啥啊