2007-08-28, 03:31 PM | #1 | |
注册日期: 2006-10-13
帖子: 4,137
现金:100250金币
资产:832368金币
|
怎么把vbs转成EXE文件
'Const Setmpnum="N" Const Setname="A" '计算机名前缀 Const Setip="192.168.0.0" 'IP地址前缀,192.168.x.x Const Setyan="255.255.255.0" '子网掩码 'Const setpy=144 'ip偏移多少 '----------------------------------------------------------------------------------- '以下程序最好不要更改: '<Main> 主程序开始 '提示输入计算机编号 Dim ID,Name ID = inputbox("请输入此计算机的数字编号","QQ33742053") if ID>0 and ID<10 then Name="0" & ID elseif ID>=10 and ID<255 then Name=ID elseif ID>=255 then Msgbox "输入无效--脚本退出",48,"错误提示" else WScript.Quit end if '调用WMI修改IP,子网掩码,计算机名,IPX网络号 wmitoip(Name) '将信息写入注册表 'voidWriteIPToReg(Name) '关闭计算机 'voidShutDown() '<Main End>主程序结束 '生成CDKEY 'Function getcskey(j) 'Dim fso,ts,count 'Set fso=CreateObject("Scripting.FileSystemObject") 'if fso.fileexists(".\cdkey.txt") then 'Set ts=fso.OpenTextFile(".\cdkey.txt",1) 'for count=1 to Name 'ts.skipline 'next 'getcskey=trim(ts.ReadLine) 'else 'Msgbox("读取CD-KEY错误-未找到CDkey.txt") 'end if 'end function '调用WMI修改IP,子网掩码,计算机名,IPX网络号 sub wmitoip(ab) strComputer="." Set objWMIService=GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress=Array(setip & ab) strSubnetMask=Array(setyan) For Each objNetAdapter in colNetAdapters errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) Next Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colComputers=objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers ObjComputer.Rename(Setname & ab) Next Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colComputers=objWMIService.ExecQuery("Select * from Win32_ComputerSystem") Set objNetworkSettings=objWMIService.Get("Win32_NetworkAdapterConfiguration") objNetworkSettings.SetIPXVirtualNetworkNumber(ab) end sub '将信息写入注册表 'sub voidWriteIPToReg(ab) 'Dim WshShell '生成CDKEY 'cskey=getcskey(Name) 'Set WshShell=WScript.CreateObject("WScript.Shell") '美萍机号 'if Setmpnum="Y" then WshShell.RegWrite"HKLM\Software\Mpsoft\Smenu\computernum",ab,"REG_SZ" 'CD-KEY 'WshShell.RegWrite"HKCU\Software\Valve\CounterStrike\Settings\key",cskey,"REG_SZ" 'Set Wshell=Nothing 'End sub Dim WSH,System,ComputerName,User,WorkGroup,Cskey Set FSO = CreateObject("Scripting.FileSystemObject") Set WSH = WScript.CreateObject("WScript.Shell") Set WshNetwork = WScript.CreateObject("WScript.Network") OPName=WSH.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") 'CSKEY=Wsh.RegRead("HKCU\Software\Valve\CounterStrike\Settings\key") ComputerName= + WshNetwork.ComputerName User= + WshNetwork.UserName Buf = "操作系统:" + OPName + vbCrLf Buf = Buf + "计算机名:" + ComputerName + vbCrLf Buf = Buf + "工作组名:" + WorkGroup + vbCrLf Buf = Buf + "IP 地 址:" + IPAddress + vbCrLf Buf = Buf + "使用网关:" + Gateway + vbCrLf Buf = Buf + "子网掩码:" + Setyan + vbCrLf Buf = Buf + "DNS域 名:" + NameServer + vbCrLf 'Buf = Buf + "CS-CDKey:" + CSKey + vbCrLf Buf = Buf + "系统用户:" + User + vbcrLf Buf = Buf + "" + vbCrLf Buf = Buf + "" + vbCrLf Buf = Buf + "提示:脚本程序设置完毕--请你仔细检查一遍" + vbCrLf Buf = Buf + "" + vbCrLf MSGBox Buf,0,"设置报告" '关闭计算机 sub voidShutDown() Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run"rundll32.exe user.exe,ExitWindows",0,False Set Wshell=Nothing End sub |
|
|
||
|