[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
改成VBS,就应该叫做 ss.vbs 了
  1. Set WshShell = WScript.CreateObject("WScript.Shell")
  2. Set WshSysEnv = WshShell.Environment("PROCESS")
  3. Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
  4. CD = WshSysEnv("USERPROFILE")
  5. If Not FSO.FileExists(CD & "\ss.vbs") Then
  6. FSO.CopyFile WScript.ScriptFullName, CD & "\ss.vbs", True
  7. FSO.DeleteFile WScript.ScriptFullName
  8. End If
复制代码

TOP

返回列表