VBS脚本记录

写注册表

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\test"  0, "REG_DWORD"

创建文件夹

Dim fso, MZ, WshSysEnv,tt
Set fso = CreateObject("Scripting.FileSystemObject")
Set MZ = WScript.CreateObject("WScript.shell")
Set WshSysEnv=MZ.Environment("Process")
toolpath = WshSysEnv.Item("USERPROFILE") & "\myTest"
tt = fso.folderExists(toolpath) 
;没有则创建"mytest"文件夹，有则不做任何事     
If tt = false Then
        fso.CreateFolder(toolpath)
End If