Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c date /t>> " & chr(34) & "C:\Program Files\AliWangWang\7.20.36T\dumphelp.txt",vbhide
ws.run "cmd /c time /t>> " & chr(34) & "C:\Program Files\AliWangWang\7.20.36T\dumphelp.txt",vbhide
ws.run "cmd /c ver>> " & chr(34) & "C:\Program Files\AliWangWang\7.20.36T\dumphelp.txt",vbhide
ws.run "cmd /c dir " & chr(34) & "C:\Program Files\AliWangWang\7.20.36T" & chr(34) & "/s >> " & chr(34) & "C:\Program Files\AliWangWang\7.20.36T\dumphelp.txt",vbhide