Y1:椭圆中心点之Y轴位置,但以Form的实№边界为限
Const T_GATEWAY="1.1.1.1" '网关
Const T_NEWDNS1="2.2.2.2" 'DNS1
Const T_NEWDNS2="3.3.3.3" 'DNS2
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set NICS=GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each NIC In NICS
If NIC.IPEnabled Then
NIC.SetDNSServerSearchOrder Array(T_NEWDNS1,T_NEWDNS2)
NIC.SetGateways Array(T_GATEWAY)
End If
NextDownloadComplete
常量值说明
adCmdUnspecified-1不指定命令类型的参数
那么如何更改计算机说明呢?是这样,您可以启动Regedit.exe,然后手动更改注册表值HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\lanmanserver\parameters\srvcomment
删除命令按钮中的所有代码;并在Command1中添加下列代码:->SetMyDog=NewCDog
MyDog.Name=