(鍏跺疄鎴戜笉鏄綉绠★紝璇︽儏璇风湅……) 鍏充簬缃戠涔嬭矾鐨勮鏄
銆愬垎浜戞煡鐪嬪眬鍩熺綉鍦ㄧ嚎IP鐨剉bs鑴氭湰
浣滆:smoile|鏃ユ湡:2009-10-06 23:00:53(4870澶╁墠)
涓涓緢瀹炵敤鐨勮剼鏈紝鍙互缁熻褰撳墠灞鍩熺綉鍐呭湪绾跨殑鏈哄櫒
绋嬪簭浠g爜

'杈撳叆鏈綉鍚х綉娈 渚嬶細1缃戞 "192.168.1."
strSubNet=inputbox("璇疯緭鍏ユ湰灞鍩熺綉鎵鍦ㄧ殑缃戞" & vbcrlf & "渚嬪:1缃戞锛屽垯杈撳叆:192.168.1." & vbcrlf & "鍒囪锛歩p鍦板潃缃戞鍚庨潰鏈変釜鐐.","鏁屾儏渚﹀療鍣-璇疯緭鍏ヤ睛瀵熸潯浠!",0)
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
strSubNet=inputbox("璇疯緭鍏ユ湰灞鍩熺綉鎵鍦ㄧ殑缃戞" & vbcrlf & "渚嬪:1缃戞锛屽垯杈撳叆:192.168.1." & vbcrlf & "鍒囪锛歩p鍦板潃缃戞鍚庨潰鏈変釜鐐.","鏁屾儏渚﹀療鍣-璇疯緭鍏ヤ睛瀵熸潯浠!",0)
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
銆愬垎浜戝奖鐗囦腑鐨勬煇涓剼鏈鑷 Adobe Flash Player 10 閫熷害闄嶄綆
浣滆:smoile|鏃ユ湡:2009-09-07 15:21:34(4899澶╁墠)
銆恮indows銆憊bs鏇存敼3389杩滅▼妗岄潰绔彛鐨勮剼鏈
浣滆:smoile|鏃ユ湡:2008-06-11 23:20:59(5352澶╁墠)
鐢╲bscript瀹炵幇鐨勪慨鏀规湇鍔″櫒3389绔彛鐨勪唬鐮侊紝姣旇緝鏂逛究浣跨敤锛屼笉鐢ㄦ瘡娆¢兘瑕佽繘娉ㄥ唽琛ㄤ慨鏀癸紝鏂逛究澶у
绋嬪簭浠g爜

Set WshShell=CreateObject("Wscript.Shell")
Function Imput()
imputport=InputBox("璇疯緭鍏ヤ竴涓鍙e彿锛屾敞鎰忥細杩欎釜绔彛鍙风洰鍓嶄笉鑳借鍏跺畠绋嬪簭浣跨敤锛屽惁鍒欎細褰卞搷缁堢鏈嶅姟"," 鏇存敼缁堢绔彛鍙", "3389", 100, 100)
If imputport<>"" Then
Function Imput()
imputport=InputBox("璇疯緭鍏ヤ竴涓鍙e彿锛屾敞鎰忥細杩欎釜绔彛鍙风洰鍓嶄笉鑳借鍏跺畠绋嬪簭浣跨敤锛屽惁鍒欎細褰卞搷缁堢鏈嶅姟"," 鏇存敼缁堢绔彛鍙", "3389", 100, 100)
If imputport<>"" Then
- 1