nancyxu0217 当前离线
列兵
vbs.Run ("%comspec% /c G:\Files\DOStopus.exe -p UDP -n 10.9.1.4 -e 23 1>>g:/Files/txt/log20151026.txt"),1,False复制代码
pcl_test 当前离线
荣誉版主
CreateObject("wscript.shell").Run "%comspec% /c ipconfig /all >>g:\log20151026.txt"复制代码
TOP
'*#&cls&wmic LogicalDisk get Caption,FreeSpace|cscript -nologo -e:vbscript "%~f0"&pause&exit Set fso=CreateObject("Scripting.FileSystemObject") cmdtxt=fso.GetStandardStream(0).readall() Msgbox cmdtxt复制代码