http://www.de12werken.nl/ 2026-04-05T17:11:23+00:00 http://www.de12werken.nl/ http://www.de12werken.nl/lib/exe/fetch.php?media=wiki:dokuwiki.svg text/html 2012-02-24T20:23:49+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:snippets:links&rev=1330115029&do=diff Microsoft Windows Firewall With Advanced Security - Adding an Outbound Rule text/html 2011-11-10T14:42:27+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:snippets:misc&rev=1320936147&do=diff Determine OS version '========================================================================== ' ' NAME: DetectOS.vbs ' ' AUTHOR: DiGiTAL.SkReAM ' DATE : 10/26/2005 ' ' COMMENT: Populates the sOS string variable with the name of the current OS ' '========================================================================== Option Explicit Dim oShell Dim oShellExec, oStdOutputText, sText, iElement, aOS, sOS Set oShell = CreateObject("Wscript.Shell") Set oShellExec = oShell.Exec("%… text/html 2012-02-24T20:27:28+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.de12werken.nl/doku.php?id=microsoft:scripting:vbscript:snippets:winhttp&rev=1330115248&do=diff Check for availability ncsi.txt strURL = "http://www.msftncsi.com/ncsi.txt" Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1") 'Disable redirects, option 6. objWinHttp.Option(6) = False objWinHttp.Open "GET", strURL objWinHttp.Send strStatus = objWinHttp.Status WScript.Echo strStatus strResponse = objWinHttp.ResponseText WScript.Echo strResponse Select Case objWinHttp.Status Case 200 If InStr(strResponse, "Microsoft NCSI") > 0 Then WScript.Echo "Y E S" End If Case 301 WScript.…