Archive for August, 2010

Login Script mit Fehlerbehandlung

Mittwoch, August 4th, 2010

Hier die erste variante eines vb scripts mit Fehlerbehandlung.

TestScript muss in *.vbs umbenannt werden.

On Error Resume Next

‚ *** Initialze objects ***
Set WSHNetwork = WScript.CreateObject(„WScript.Network“)
Set WSHShell = WScript.CreateObject(„WScript.Shell“)
Set objShell = CreateObject(„Shell.Application“)
Set WSHFso = WScript.CreateObject(„Scripting.FileSystemObject“)
Set MSIE = WScript.CreateObject(„InternetExplorer.Application“)
Set fso = CreateObject(„Scripting.filesystemobject“)
Set net = CreateObject(„WScript.Network“)
set File = fso.OpenTextFile(„E:\Support\tools\vbscript\ausgabe.txt“, 8, true)
Set oEnv = Shell.Environment(„SYSTEM“)

’sTemp = Shell.ExpandEnvironmentStrings(oEnv(„TEMP“))

Dim fso, File, sText

function debug()
 File.WriteLine(„Username: “ & net.username & “ *******************************“)
 File.WriteLine(„Fehler:“)
 File.WriteLine(„err.Number: “ & err.Number)
 File.WriteLine(„err.Description: “ & err.Description)
 File.WriteLine(„err.HelpContext: “ & err.HelpContext)
 File.WriteLine(„err.helpfile: “ & err.helpfile)
 File.WriteLine(„err.Source: “ & err.Source)
 File.WrtieLine(„**************************************************************“)
 File.WrtieLine(„“)
end function

If fso.driveExists(„X:\“) Then net.RemoveNetworkDrive „X:“,True,True
net.MapNetworkDrive „X:“, „
\\localhost\uuue

if Err.Number <> 0 Then
 debug()
 Err.Clear
End If

File.close
Set File = nothing
Set fso = nothing

2008 R2 and net use errors

Dienstag, August 3rd, 2010

http://support.microsoft.com/kb/978738

I try to disable Windows defender service and for now I not have the problem..

I have been running this as a case with Microsoft. They had me doing the following: