- 论坛徽章:
- 0
|
映射指定盘符\r\n\r\n\r\nOn Error Resume Next\r\nserverpath=\"\\\\cover\\up$\\\"\r\nmydisk=\"w:\\\"\r\nmydiskname=\"软件区\"\r\nif right(serverpath,1)=\"\\\" then\r\nserverpath=left(serverpath,len(serverpath)-1)\r\nend if\r\nif right(mydisk,1)=\"\\\" then\r\nmydisk=left(mydisk,len(mydisk)-1)\r\nend if\r\nset wshshell=wscript.createObject(\"wscript.shell\")\r\nwshshell.run (\"%comspec% /c regsvr32 /s scrrun.dll\"),0,True\r\nregspath=replace(serverpath,\"\\\",\"#\")\r\nwshshell.Regwrite \"HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\MountPoints2\\\"& regspath&\"\\_LabelFromReg\",mydiskname,\"REG_SZ\" \r\nSet WSHNetwork = WScript.CreateObject(\"WScript.Network\")\r\nWSHNetwork.RemoveNetworkDrive mydisk\r\nWSHNetwork.MapNetworkDrive mydisk, serverpath\r\nwshshell.run \"explorer \"&mydisk\r\n\r\n--------------------------------------------------------\r\n\r\n我的电脑P处理\r\n\r\nstart \"\" \"file:\"\r\n\r\n---------------------------------------------------------\r\n\r\nXPSP2正版验证\r\n\r\nON ERROR RESUME NEXT \r\n\r\nDim VOL_PROD_KEY \r\nif Wscript.arguments.count<1 then \r\nVOL_PROD_KEY=InputBox(\"Powered By \" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。\"&vbCr&vbCr&\"序列号(OEM版无效,默认版本为 XP VLK):\",\"Windows XP序列号自动更换器\",\"MRX3F-47B9T-2487J-KWKMF-RPWBY\") \r\nif VOL_PROD_KEY=\"\" then \r\nWscript.quit \r\nend if \r\nelse \r\nVOL_PROD_KEY = Wscript.arguments.Item(0) \r\nend if \r\n\r\nVOL_PROD_KEY = Replace(VOL_PROD_KEY,\"-\",\"\") \'remove hyphens if any \r\n\r\nfor each Obj in GetObject(\"winmgmts:{impersonationLevel=impersonate}\").InstancesOf (\"win32_WindowsProductActivation\") \r\n\r\nresult = Obj.SetProductKey (VOL_PROD_KEY) \r\n\r\nif err = 0 then \r\nWscript.echo \"OK!去微软验证吧!\" \r\nend if \r\n\r\nif err <> 0 then \r\nWscript.echo \"替换失败!输入的 CD-KEY 与当前的版本不匹配。\" \r\nErr.Clear \r\nend if \r\n\r\nNext |
|