Windowsシステムをより安全にする？VBSスクリプトを使用する

VBSスクリプトは多くの人にとって変わった用語ですが、今日、Xiaobianはシステムのセキュリティにおけるこの奇妙な名詞の不思議な使い方を説明します。専門家は、VBSで書かれたスクリプトはウィンドウインタフェースのwscript.exeファイルによって解釈され、文字インタフェースのcscript.exeファイルによって解釈されることを理解しています。 Wscript.exeは、バッチ処理と同じようにスクリプトを実行できるようにするスクリプト言語インタプリタです。

まず、レジストリエディタのロックを解除します。

メモ帳を使用して以下を編集します。

DIM WSH

SET WSH = WSCRIPT.CreateObject（" WSCRIPT.SHELL"） '動作WScript.Shellオブジェクト

WSH.POPUP（"レジストリエディタのロック解除！"）

'ポップアップ情報の表示'レジストリエディタのロック解除！'

1. WSH.Regwrite" HKCU \\ Software \\ Microsoft \\ Windows \\ CurrentVersion \\ Policies \\ System \\

DisableRegistryTools"、0、" REG_DWORD"

'レジストリエディタのロック解除

WSH.POPUP（"レジストリのロック解除に成功しました！"）

'ポップアップメッセージの表示'レジストリのロックとロック解除に成功しました。'

拡張子が.vbsのファイルとして保存し、使用するときはダブルクリックします。

次に、Windows NT /2000の既定の共有を閉じます。

メモ帳を使用して以下を編集します。

Dim WSHShell 'define variable

set WSHShell = CreateObject （" WScript.shell"） 'オペレーティングシステムと通信できるオブジェクトを作成するWSHShell

Dim fso、dc

Set fso = CreateObject（" Scripting.FileSystemObject"）'ファイルを作成するシステムオブジェクト

set dc = fso.Drives 'すべてのドライブ名を取得

For dcの各d

Dim str

WSHShell.run（"; net share"& d.driveletter&" $ /delete"）すべてのドライブの隠し共有を閉じる

next

WSHShell.run（" net share admin $ /delete";）

WSHShell.run（" net share ipc $ /delete"） 'admin $とipc $ pipeshareを閉じます。

さて、まずcmd.exeを開き、netと入力してテストしましょう。 shareコマンドはあなたのマシン上の共有を見るでしょう。 execute stopshare.vbsをダブルクリックすると、ウィンドウが点滅します。次に、cmdでnet shareコマンドを入力します。この時点では、共有リストは見つかりません。

1. New Roman">

3.ローカルIPアドレスを表示します。

多くの場合、このマシンのIPアドレスを知る必要がありますが、さまざまなソフトウェアを使用できますが、VBSスクリプトを使用すると非常に便利です。メモ帳を使用して、以下を編集します。

1. Dim WS

2. WS = CreateObject（" MSWinsock.Winsock"）を設定します。

3. IPAddress = WS.LocalIP

4. MsgBox"ローカルIP ="< IPアドレス>

上記の内容をShowIP.vbsとして保存し、ダブルクリックしてローカルIPアドレスを取得します。前のページ12次のページ合計2ページ