母盘必备代码

    WshShell.Run chr(34) & pro & chr(34),0

VBS建立快捷方式

set WshShell = WScript.CreateObject("WScript.Shell")  '设置CreateObject 方法
        strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路径
        set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk")  '设置快捷方式
        oShellLink.TargetPath = "d:\qq\QQ木马清除.vbs" '快捷方式里的“目标”
        oShellLink.WindowStyle = 1  '快捷方式里的“运行方式”
        oShellLink.Hotkey = "Ctrl+Alt+e"  '快捷方式里的“快捷键”
        oShellLink.IconLocation = "d:\qq\qq.exe, 0"  '快捷方式的图标
        oShellLink.Description = "腾讯QQ"  '快捷方式里的“备注”
        oShellLink.WorkingDirectory = "d:\qq"  '快捷方式里的“起始位置”
        oShellLink.Save '建立快捷方式
vbs修改盘符的代码，可用于iscsi出盘后自动修改盘符
on error resume next
dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run"diskpart"
WshShell.AppActivate"%systemroot%\system32\diskpart.exe"
WScript.Sleep 30
WshShell.SendKeys"select volume=d"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 30
WshShell.SendKeys"remove"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 30
WshShell.SendKeys"assign letter=z:"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 30
WshShell.SendKeys"exit"
WshShell.SendKeys"{ENTER}"

VBS修改指定IP信息