Windows 7 – Josh's IT-Blog

Proxy autoconfiguration with WPAD.dat and multiple network adapters

9. January 20139. January 2013 by Burkard Josh

If you use a proxy server in your company, you would like to automatically configure your clients using a WPAD.dat-file. If you use the myIpAddress()-function, this function will returns the ip address from one active network adapter, maybe from the wrong one. This function couldn’t determine, which network adapter would made the connection to your proxy server. In this case you couldn’t connect to the internet, cause the WPAD.dat file returns the wrong result.

There is no automatic metric inside the WPAD.dat to detect, which adapter is the active adapter, nearest to your proxy server. You need to set the ip metric manualy on each network adapter: read more

force a vbscript to run in CSCRIPT

28. September 201228. September 2012 by Burkard Josh

There are several valid reasons to demand that a vbscript runs in CSCRIPT instead of WSCRIPT, like for example to allow the use of Standard Input or to prevent a separate popup for each Wscript.Echo line.

The following code can be copied and pasted at the top of your own scripts to force them to run in CSCRIPT:

If (right(Ucase(WScript.FullName),11)="WSCRIPT.EXE") Then
    Dim WshShell,args,objArgs,I
    Set WshShell = CreateObject("WScript.Shell")
    args=""
    If Wscript.Arguments.Count &gt; 0 Then
        Set objArgs = WScript.Arguments
        For I = 0 to objArgs.Count - 1
            args = args &amp; " " &amp; objArgs(I)
        Next
    End If
    Set objDebug = WshShell.Exec ( "cscript.exe /NoLogo """ &amp; Wscript.ScriptFullName &amp; """" &amp; args )

    ' Wait until the script exits
    Do While objDebug.Status = 0
        WScript.Sleep 100
    Loop

    ' Exit with CSCRIPT's return code
    WScript.Quit objDebug.ExitCode
End If

If (right(Ucase(WScript.FullName),11)="WSCRIPT.EXE") Then

Dim WshShell,args,objArgs,I

Set WshShell = CreateObject("WScript.Shell")

args=""

If Wscript.Arguments.Count > 0 Then

Set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1

args = args & " " & objArgs(I)

End If

Set objDebug = WshShell.Exec ( "cscript.exe /NoLogo """ & Wscript.ScriptFullName & """" & args )

' Wait until the script exits

Do While objDebug.Status = 0

WScript.Sleep 100

Loop

' Exit with CSCRIPT's return code

WScript.Quit objDebug.ExitCode

End If

The code may look more complicated than necessary, that’s because it returns CSCRIPT‘s return code to the WSCRIPT engine, just in case this return code is monitored by the program that started the script in WSCRIPT. read more

Downgrade Windows 7 from Enterprise/Ultimate Edition to lower Edition

3. October 201128. September 2011 by Burkard Josh

Windows 7 does not allow users to “downgrade” or convert from a more premium and more expensive edition to down-level, more basic and less expensive edition. For example, it’s impossible to downgrade from Windows 7 Ultimate to Windows 7 Professional, or from Windows 7 Professional to Windows 7 Home Premium or Home Basic.

Windows 7 SKUs or editions have a hierarchy as below:

Starter → Home Basic → Home Premium → Professional → Ultimate ( → Enterprise )

Upgrade is only possible one-way from the lower edition to higher edition of Windows 7, and not the other way. If user attempts to perform an in-place upgrade to downgrade to a lesser edition of Windows 7, an error similar to below will be displayed at compatibility report: read more

BitLocker in a enterprise environment

16. May 201114. April 2011 by Burkard Josh

Each System-Administrator knows the problem. Every day a users loses his Notebook or his mobile device. The financial loss is one thing, but lose the the datas and the control who has access to this datas is a disaster for a lot of companies.

To secure your datas from loss some developers created solutions to backup your datas. Another important point is to encrypt your datas in a secure way, so that no one outside your organisation can access your sensitive datas.

The following things should be noted: read more

Share this:

Share this:

Share this:

Share this: