前后竟然相差了8-9倍之多DimWSHShell,r,M,v,t,g,i OnErrorResumeNext SetWSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableRegistryTools" i="REG_DWORD" t="注册表开关" r=WSHShell.RegRead(v) g=1 If(r=1)Theng=0 Ifg=1Then WSHShell.RegWritev,1,i M=MsgBox("是否限制注册表编辑器?",4,t) Else WSHShell.RegDeletev M=MsgBox("是否解除注册表编辑器限制?",4,t) EndIf

如何从本地Administrators组中删除组？ --SB 答： 您好，SBPublicConstVK_TAB=&H9PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=vbKeyReturnThenKeyAscii=0keybd_eventVK_TAB,0,0,0EndIfEndSub->

问： 嗨，ScriptingGuy'调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction'调用方法Text2=ChMoney(Val(Text1))'名称：CCh'得到一位数字N1的汉字大写'0返回""PrivateFunctionCCh(N1)AsStringSelectCaseN1Case0CCh="零"Case1CCh="壹"Case2CCh="贰"Case3CCh="叁"Case4CCh="肆"Case5CCh="伍"Case6CCh="陆"Case7CCh="柒"Case8CCh="捌"Case9CCh="玖"EndSelectEndFunction'名称：ChMoney'得到数字N1的汉字大写'最大为千万位'O返回""PublicFunctionChMoney(N1)AsStringDimtMoneyAsStringDimlMoneyAsStringDimtn'小数位置Dims1AsString'临时STRING小数部分Dims2AsString'1000以内Dims3AsString'10000IfN1=0ThenChMoney=""ExitFunctionEndIfIfN1<0ThenChMoney="负" ChMoney(Abs(N1))ExitFunctionEndIftMoney=Trim(Str(N1))tn=InStr(tMoney,".")'小数位置s1=""Iftn<>0ThenST1=Right(tMoney,Len(tMoney)-tn)IfST1<>""Thent1=Left(ST1,1)ST1=Right(ST1,Len(ST1)-1)Ift1<>"0"Thens1=s1 CCh(Val(t1)) "角"EndIfIfST1<>""Thent1=Left(ST1,1)s1=s1 CCh(Val(t1)) "分"EndIfEndIfST1=Left(tMoney,tn-1)ElseST1=tMoneyEndIfs2=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s2=CCh(Val(t1)) s2EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "拾" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "佰" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens2=CCh(Val(t1)) "仟" s2ElseIfLeft(s2,1)<>"零"Thens2="零" s2EndIfEndIfs3=""IfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)s3=CCh(Val(t1)) s3EndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "拾" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "佰" s3ElseIfLeft(s3,1)<>"零"Thens3="零" s3EndIfEndIfIfST1<>""Thent1=Right(ST1,1)ST1=Left(ST1,Len(ST1)-1)Ift1<>"0"Thens3=CCh(Val(t1)) "仟" s3EndIfEndIfIfRight(s2,1)="零"Thens2=Left(s2,Len(s2)-1)IfLen(s3)>0ThenIfRight(s3,1)="零"Thens3=Left(s3,Len(s3)-1)s3=s3&"万"EndIfChMoney=IIf(s3&s2="",s1,s3&s2&"元"&s1)EndFunction->

出于某些原因，Microsoft的脚本技术在涉及Windows设置和组件方面有些不足，例如屏幕保护、墙纸、任务栏和开始菜单等等如果我们只是列出DLL文件名而不指出其完整的路径的话，VB会自动到.EXE文件所在目录、当前工作目录、WINDOWS\SYSTEM目录、WINDOWS目录下搜寻这个DLL文件

'ReturningIPConfigurationData 'WMIscriptthatreturnsconfigurationdatasimilartothatreturnedbyIpConfig. strComputer="." SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2") SetcolAdapters=objWMIService.ExecQuery_ ("SELECT*FROMWin32_NetworkAdapterConfigurationWHEREIPEnabled=True") n=1 WScript.Echo ForEachobjAdapterincolAdapters WScript.Echo"NetworkAdapter"&n WScript.Echo"=================" WScript.Echo"Description:"&objAdapter.Description WScript.Echo"Physical(MAC)address:"&objAdapter.MACAddress WScript.Echo"Hostname:"&objAdapter.DNSHostName IfNotIsNull(objAdapter.IPAddress)Then Fori=0ToUBound(objAdapter.IPAddress) WScript.Echo"IPaddress:"&objAdapter.IPAddress(i) Next EndIf IfNotIsNull(objAdapter.IPSubnet)Then Fori=0ToUBound(objAdapter.IPSubnet) WScript.Echo"Subnet:"&objAdapter.IPSubnet(i) Next EndIf IfNotIsNull(objAdapter.DefaultIPGateway)Then Fori=0ToUBound(objAdapter.DefaultIPGateway) WScript.Echo"Defaultgateway:"&objAdapter.DefaultIPGateway(i) Next EndIf WScript.Echo WScript.Echo"DNS" WScript.Echo"---" WScript.Echo"DNSserversinsearchorder:" IfNotIsNull(objAdapter.DNSServerSearchOrder)Then Fori=0ToUBound(objAdapter.DNSServerSearchOrder) WScript.Echo""&objAdapter.DNSServerSearchOrder(i) Next EndIf WScript.Echo"DNSdomain:"&objAdapter.DNSDomain IfNotIsNull(objAdapter.DNSDomainSuffixSearchOrder)Then Fori=0ToUBound(objAdapter.DNSDomainSuffixSearchOrder) WScript.Echo"DNSsuffixsearchlist:"&objAdapter.DNSDomainSuffixSearchOrder(i) Next EndIf WScript.Echo WScript.Echo"DHCP" WScript.Echo"----" WScript.Echo"DHCPenabled:"&objAdapter.DHCPEnabled WScript.Echo"DHCPserver:"&objAdapter.DHCPServer IfNotIsNull(objAdapter.DHCPLeaseObtained)Then utcLeaseObtained=objAdapter.DHCPLeaseObtained strLeaseObtained=WMIDateStringToDate(utcLeaseObtained) Else strLeaseObtained="" EndIf WScript.Echo"DHCPleaseobtained:"&strLeaseObtained IfNotIsNull(objAdapter.DHCPLeaseExpires)Then utcLeaseExpires=objAdapter.DHCPLeaseExpires strLeaseExpires=WMIDateStringToDate(utcLeaseExpires) Else strLeaseExpires="" EndIf WScript.Echo"DHCPleaseexpires:"&strLeaseExpires WScript.Echo WScript.Echo"WINS" WScript.Echo"----" WScript.Echo"PrimaryWINSserver:"&objAdapter.WINSPrimaryServer WScript.Echo"SecondaryWINSserver:"&objAdapter.WINSSecondaryServer WScript.Echo n=n+1 Next FunctionWMIDateStringToDate(utcDate) WMIDateStringToDate=CDate(Mid(utcDate,5,2)&"/"&_ Mid(utcDate,7,2)&"/"&_ Left(utcDate,4)&""&_ Mid(utcDate,9,2)&":"&_ Mid(utcDate,11,2)&":"&_ Mid(utcDate,13,2)) EndFunction微文案范例但对于不同场合来说，我们总需要Get和Let来进行读和写的操作在ForEach循环内，使用下行代码绑定到每个文件： SetobjFile=objFSO.GetFile(objFile.Name) 正如您所见，我们只是调用了GetFile方法，为其传递Name属性的值（使用WMI获得）。