改成VBS,就应该叫做 ss.vbs 了- 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
复制代码
|