Shulou(Shulou.com)06/03 Report--

This article mainly introduces the comparison of classic VBS code which has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let Xiaobian take you to understand it.

File operation

Set fso = Wscript.CreateObject ("Scripting.FileSystemObject") 'create file system objects to process drives, folders, and files

Set WshShell = Wscript.CreateObject ("Wscript.Shell") 'create a system Shell object to run programs, etc.

If fso.fileexists ("D:\ sword Online\ alreadyexist.txt") then'if the file "D:\ sword Online\ alreadyexist.txt" is found

WshShell.Run ("D:\ sword Online\ sword Online.exe") 'run "D:\ sword Online\ sword Online.exe"

Elseif fso.fileexists ("\\ gengxin\ update\ dj.exe") then 'otherwise, if "\\ gengxin\ update\ dj.exe" is found, then

WshShell.Run ("\\ gengxin\ update\ dj.exe") 'run "\\ gengxin\ update\ dj.exe"

Else

WshShell.Run ("D:\ sword Online\ sword Online.exe") 'otherwise run "D:\ sword Online\ sword Online.exe"

End if 'execute statement end according to condition

VBS imports the registry and executes the file

Dim Wsh Set Wsh = WScript.CreateObject ("WScript.Shell")

Wsh.RegWrite "HKCU\ SOFTWARE\ AUDITION\ AUTOSTART", 0, "REG_DWORD"

Wsh.RegWrite "HKCU\ SOFTWARE\ AUDITION\ PATH", "G:\ online Game\ Entrepreneurship 1.5", "REG_SZ"

Wsh.RegWrite "HKCU\ SOFTWARE\ AUDITION\ VERSION", 1010, "REG_DWORD" Wsh.run "patcher.exe"

The VBS that shuts down the machine if the PING's internal network is not available.

The copy code is as follows:

StrIP = "192.168.0.254" 'the private network machine that is PING

Set objShell = CreateObject ("WScript.Shell")

If Not IsOnline (strIP) Then objShell.run "shutdown-s-t 30-c" & chr (34) & "the machine is about to shut down" & chr (34)

End If

Function IsOnline (strComputer) IsOnline = false strCommand = "% comspec% / c ping-n 2-w 500" & strComputer & "" Set objExecObject = objShell.Exec (strCommand) Do While Not objExecObject.StdOut.AtEndOfStream strText = objExecObject.StdOut.ReadAll () If Instr (strText, "Reply") > 0 Then IsOnline = true End If Loop End Function

Boot script VBS is used for ARP binding

The copy code is as follows:

Set WshShell = Wscript.CreateObject ("Wscript.Shell")

WshShell.run "arp-s 192.168.0.1 30-18-e5-33-01", 0

WshShell.run "arp-s 192.168.0.5 30-18-e5-33-07", 0

Run the program

The copy code is as follows:

Dim a

Set Wsh = WScript.CreateObject ("WScript.Shell")

A.Run "d:\ online game\ A Chinese Odyssey II\ xy-2.exe"

Run oshell.run "d:\ soft\ hf\ hfgame3\ GameClient.lnk"

Disconnect the network

The copy code is as follows:

StrNICName = "disable = net pci\ *"

Set objShell = CreateObject ("Wscript.Shell")

StrCommand = "devcon.exe" & strNICName

ObjShell.Run strCommand, 0, False

Start a network connection

The copy code is as follows:

StrNICName = "enable = net pci\ *"

Set objShell = CreateObject ("Wscript.Shell")

StrCommand = "devcon.exe" & strNICName

ObjShell.Run strCommand, 0, False

Delete the VBS script for the file

The copy code is as follows:

Dim fso Set fso = CreateObject ("Scripting.FileSystemObject")

Fso.CopyFile "\\ server\ share\ XXX.lnk", "c:\ destination location 1\", true 'add

Fso.CopyFile "\\ server\ share\ XXX.lnk", "c:\ destination location 2\", true 'add

Fso.DeleteFile "c:\ target location 1\ XXX.lnk", true 'delete fso.DeleteFile "c:\ target location 2\ XXX.lnk", true' delete

Set FSO=NoThing WScript.quit

No interface automatically detects and installs iscsi client, maps and unmaps vbs scripts

The following code implements automatic detection and installation of iscsi client without interface and automatic mapping

The copy code is as follows:

On Error Resume Next setupfile= "iscsi2.0.exe" 'iscsi client installation file path

Serverip= "192.168.0.100" 'iscsi Server ip

Set oshell= CreateObject ("WScript.Shell")

Set fso = CreateObject ("Scripting.FileSystemObject")

If not fso.fileexists (oshell.ExpandEnvironmentStrings ("% WinDir%") + "\ system32\ iscsicpl.cpl")

Then oshell.run setupfile& "/ Q", 1

End if

Oshell.run "iscsicli AddTargetPortal" & serverip& "3260", 0Jol 1

Oshell.run "iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * 0", 0meme 1

The following example code deletes the iscsi mapping disk without interface.

The copy code is as follows:

Filetmp= "c:\ my.txt"

On Error Resume Next

Set Shell = CreateObject ("WScript.Shell")

Set fso = Wscript.CreateObject ("Scripting.FileSystemObject")

Shell.run "cmd / c iscsicli sessionlist >" & filetmp,0,1

Const ForReading = 1

Dim fso, theFile, retstring

Set fso = CreateObject ("Scripting.FileSystemObject")

Set theFile = fso.OpenTextFile (filetmp, ForReading)

Aaa=thefile.readall

Thefile.close

Function myreadline ()

X=instr (1MagneaaMagneVbcrlfMagnevbTextCompare)

Myline=mid (aaa,1,x-1)

Aaa=right (aaa,len (aaa)-x)

If len (aaa) =

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.