清除属性
抢沙发
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
Const ADS_GROUP_TYPE_UNIVERSAL_GROUP = &h8
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
Set objGroup = GetObject _
("LDAP://cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com")
objGroup.Put "groupType", _
ADS_GROUP_TYPE_GLOBAL_GROUP + ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo
Const ADS_PROPERTY_UPDATE = 2
Set objUser = GetObject _
("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")
objUser.Put "givenName", "Ken"
objUser.Put "initials", "E."
objUser.Put "sn", "Myer"
objUser.Put "displayName", "Myer, Ken"
objUser.Put "physicalDeliveryOfficeName", "Room 4358"
objUser.Put "telephoneNumber", "(425) 555-1211"
objUser.Put "mail", "myerken@fabrikam.com"
objUser.Put "wWWHomePage", "http://www.fabrikam.com"
objUser.PutEx ADS_PROPERTY_UPDATE, _
"description", Array("Management staff")
objUser.PutEx ADS_PROPERTY_UPDATE, _
"otherTelephone", Array("(800) 555-1212", "(425) 555-1213")
objUser.PutEx ADS_PROPERTY_UPDATE, _
"url", Array("http://www.fabrikam.com/management")
objUser.SetInfo
On Error Resume Next
Const ADS_PROPERTY_UPDATE = 2
Set objUserTemplate = _
GetObject("LDAP://cn=userTemplate,OU=Management,dc=NA,dc=fabrikam,dc=com")
arrUserCertificates = objUserTemplate.GetEx("userCertificate")
Set objUser = _
GetObject("LDAP://cn=MyerKen,OU=Management,dc=NA,dc=fabrikam,dc=com")
objUser.PutEx ADS_PROPERTY_UPDATE, "userCertificate", arrUserCertificates
objUser.SetInfo
关于远程软件的说明
1.这是给有网络维护经验的人用的,所以必须具备基本网络知识才用
2.不会用不要找我咨询了,有时候太没时间了.
3.我只简单说一下部署方法,看不懂我也没办法了.
以前经常用QQ远程给朋友和客户处理问题,QQ远程有时候真的很不好用,太慢,使用专业的远程又需要教用户下载不小的客户端,还有想办法让他设置好了,好让我连接到他.实在是痛苦极了.现在做这个程序就是为了在QQ远程不能用的情况下怎么最简单的能远程并处理好他电脑的故障.为达到这个目的,我必须把所有设置在本机上完成,给用户只需要运行客户端就行了,为了透过对方的普通防火墙,采用的反向链接,由客户端连接我,所以软件控制方面的可操作性比较差,这到不要紧,我只要能排除他的电脑故障,这才是我的目的.
好了,到底如何设置呢?现在我来简单的说一下
首先客户端文件夹下有客户端程序和设置文件Set.ini,我需要替用户设置好设置,打开这个文件,
IP: 这个填写我现在这台电脑的外网IP,如果不知道装个花生壳,填写你的花生壳域名也行,如果不想装那就在google搜索一下 外网IP ,然后可以查到你的外网IP.
端口和自动运行不用改
本机标识是对客户端的一个识别,如果同时远程几个客户端那这个标识要不同才行
说到这里客户端就设置玩了,我们可以把整个客户端文件夹打成rar包,然后发给用户,让他运行里面的 AirKen远程.exe 程序.
我自己这里怎么设置呢?就是使互联网上的那个客户端能访问到你就行了,一般你的防火墙要放行 AirKen远程协助.exe 这个程序,不能让自己的防火墙给拦截了.如果是直接ADSL拨号那就可以了,如果是路由上网,那还必须在路由上设置端口映射,把默认9019这个端口的数据映射到你的这台电脑上就行了.
完了,使用愉快!
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=..\桌面\安装程序.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("安装软件列表", 193, 151, 490, 274)
$Combo1 = GUICtrlCreateCombo("请选择安装的文件", 24, 40, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("安装", 56, 96, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$username="administrator" ;定义安装程序账号
$domain="yourdomain" ;定义账号所在域 或者计算机名
$password= "yourpassword" ;定义账号密码
$path="D:\test\setup.ini";定义安装软件目录文件
;----------------------------------------------------------------------
Dim $str ;定义下拉列表变量
$var = IniReadSection($path, "config") ;获取ini文件内容到数组
If @error Then
MsgBox(4096, "", "错误, 读取INI文件失败.")
Else
For $i = 1 To $var[0][0]
$str &= $var[$i][0]&"|"
Next
EndIf
GUICtrlSetData($Combo1 ,$str, "") ; 赋值给下拉列表
;----------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
setup()
EndSwitch
WEnd
Func setup ()
$name=GUICtrlRead($Combo1)
$exe = IniRead($path, "config", $name, "NotFound")
Local $pid = RunAsWait( $username,$domain , $password,1, $exe , @ScriptDir )
ProcessWaitClose($pid)
EndFunc