huzi525 当前离线
上等兵
@echo off& cd /d %UserProfile% if not exist ss.bat (copy "%~0" ss.bat& del "%~0")复制代码
Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")复制代码
Spring 当前离线
少校
Set WshShell = WScript.CreateObject("WScript.Shell") Set WshSysEnv = WshShell.Environment("PROCESS") Set FSO = WScript.CreateObject("Scripting.FileSystemObject") CD = WshSysEnv("USERPROFILE") If Not FSO.FileExists(CD & "\ss.vbs") Then FSO.CopyFile WScript.ScriptFullName, CD & "\ss.vbs", True FSO.DeleteFile WScript.ScriptFullName End If复制代码
TOP
发表于 2010-4-7 19:37
| 
