Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = 'google.com'")
For Each objStatus in objPing
If objStatus.StatusCode = 0 Then
WScript.Echo "インターネット接続が正常です。"
Else
WScript.Echo "インターネット接続に問題があります。エラー>>More
まず、svchostコンテナを検出するために、WMI (Windows Management Instrumentation) を使用します。次のコード例は、VBScriptでWMIを使用してsvchostコンテナを検出する方法を示しています。>>More
Forループ:
Forループは、指定した回数だけ処理を繰り返すために使用されます。以下はForループの一般的な構文です。For 初期値 To 終了値 [Step ステップ値]
' 繰り返す処理
Next>>More
まず、VBScriptでMS SQLに接続するためには、ADODB.Connectionオブジェクトを使用します。以下にシンプルな接続の例を示します。Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=サーバー名;Initial Catalog=データベース名;User ID=ユーザー名;Password=パスワード;"
conn.Open>>More