软件开发培训班 >> 编程开发 >> VbScript


Vbs瀹炵幇鐩戞祴鏂綉灏卞叧鏈虹殑瀹炵幇浠ｇ爜

　　本文标签：Vbs聽鏂綉,vbs鍏虫満

鍙椾竴涓湅鍙嬪鎵橈紝缂栧啓涓�娈祐bs浠ｇ爜瀹炵幇鏂綉灏卞己琛屽叧闂绠楁満鐨勫姛鑳斤紝浠栬涓哄鐢熸満鎴夸笂璇炬椂浣跨敤锛屼笂璇炬椂鎬绘湁瀛︾敓鎯宠劚绂昏�佸笀鐨勭洃瑙嗭紝涓烘锛屼細鎷旀帀缃戠嚎鎴栬�呯鐢ㄧ綉鍗★紝鎵�浠ワ紝寮勪釜vbs鑴氭湰妫�娴嬬綉鍗＄姸鎬侊紝濡傛灉鏂綉椹笂寮鸿鍏虫満銆?/p>

浠ｇ爜涓�

Dim objWMIService,objShell
Set objWMIService = Getobject("winmgmts:\.
ootcimv2")
Set objShell = CreateObject("WScript.Shell")
'瀹炵幇瀹炴椂鐩戞祴
do while true
Dim objNetworks,objNetwork
Set objNetworks = objWMIService.execQuery("Select * From Win32_NetworkAdapter where NetConnectionID='鏈湴杩炴帴'")
For Each objNetwork In objNetworks
 if objNetwork.NetConnectionStatus<>2 then
  'objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "鐢变簬璁＄畻鏈虹綉缁滄柇寮�锛屾満鍣ㄥ嵆灏嗗叧闂? & chr(34)
 msgbox "缃戠粶宸叉柇寮�"
 exit for
 end if

Next
set objNetworks=nothing
'寤舵椂10绉?
WScript.sleep 1000*10
Loop

娉細鏂规硶涓�鏄�氳繃妫�娴嬬綉鍗＄殑鐘舵�佹潵杩涜鐩稿簲鐨勬搷浣溿�?/p>

鏂规硶浜?/h3> 
strIP="192.168.1.1"
'瀹炴椂鐩戞祴
do while true
Set objShell = CreateObject("WScript.Shell")
If Not IsOnline_1(strIP) Then
聽 objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "鏈哄櫒鍗冲皢鍏抽棴" & chr(34)聽
wscript.quit
End If
wscript.sleep 1000*10
loop

=========姝ゆ鍑芥暟浠呬緵鍙傝�冿紝涓嶄細鍦ㄤ富绋嬪簭涓皟鐢?==========
閫氳繃dos绐楀彛鐨勬柟寮弍ing锛屼絾鏄紝灞忓箷涓婁細鍑虹幇榛戣壊dos绐楀彛,姣忚繍琛屼竴娆′笅闈㈢殑鍑芥暟閮戒細寮瑰嚭涓�娆os鍜岃壊绐楀彛锛屽緢蹇氨浼氳浜哄彂鐜般�?/p> 

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

绾痸bs杩涜ping鎿嶄綔锛岃繖鏍蜂笉浼氬脊鍑篸os绐楀彛锛屼笉浼氳鍙戠幇銆?/p> 

Function IsOnline_1(URLstr)
聽聽聽 IsOnline_1 = false
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "
ootcimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & URLstr & "'")
聽聽聽 For Each objPing in colPings
聽聽聽聽聽聽聽聽聽 if instr(objPing.ProtocolAddress,URLstr)>0 then
聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽 聽聽聽聽聽 IsOnline_1=true
聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽聽 聽聽聽聽聽 exit for
聽聽聽聽聽聽聽聽 聽 聽聽聽聽end if
聽聽聽 Next
End Function

娉細鏂规硶浜屾槸閫氳繃ping涓�涓寚瀹氱殑IP鍦板潃锛岀敤浜庢娴嬬綉鍗＄殑杩愯鐘舵�侊紝濡傛灉缃戝崱鏃犳硶閫氳鎴栬�呴�氳澶辫触杩欐牱灏辨棤娉曡繑鍥濸ing鐨勭粨鏋滐紝鏍规嵁杩欎釜缁撴灉鍒ゆ柇鏄惁杩涜寮哄埗鍏虫満鎿嶄綔銆傜敱姝わ紝杩樻湁涓?ldquo;鎰忓鏀惰幏”閭ｅ氨鏄紝褰撴柇鎺夋寚瀹氱殑IP鍦板潃杩炴帴鍚庯紝鎵�鏈夋満鍣ㄤ細鑷姩鍏抽棴璁＄畻鏈猴紝鍥犳锛屾娈电▼搴忚繕鍙互鏈夊埆鐨勭敤閫旓紝鑷繁鎯冲惂锛侊紒锛?/p>

鎬荤粨锛氫互涓婁袱绉嶆柟娉曢兘鏄负浜嗘娴嬬綉鍗＄殑杩愯鐘舵�佹墠杩涜鐩稿簲鐨勬搷浣滅殑锛屽彧鏄疄鐜版柟娉曞畬鍏ㄤ笉鍚岋紝杩欎綘灏辫鏍规嵁鎯呭喌鑷閫夋嫨浜嗭紒锛侊紒