cluberti

That sig is so 11111000110 .

Never liked it, especially with wireless connections making things worse. That's why my vbscript was created, and you run it in your logon script. Trust me, it's REALLY basic, but it works: Dim sTestPath Dim intCount Dim objnet Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") Set objVolatileEnv = objShell.Environment("VOLATILE") Set objnet = CreateObject("Wscript.Network") ' An UNC path here that will be available when network connection is in place sTestPath = "\\server\share intCount = 1 ' test on volatile environment variable to avoid running logon script ' if the user has already run the logon script. If Not objVolatileEnv("LogonScript") = "Done" Then Do Until objFSO.FolderExists(sTestPath) ' sleep 5 seconds WScript.Sleep 5000 intCount = intCount + 1 If intCount = 240 Then MsgBox "Unable to connect to network share for 20 minutes. Please notify your network administrator." Exit Do End If Loop ' share/folder available on server now, so continue objnet.MapNetworkDrive "Z:", "\\server\share","True","domain\user","password" End If

What actually happens? Is it that the executable doesn't launch, or it does but doesn't install?

Open dcomcnfg, go to Computers > My Computer > Dcom Config, and right-click Logical Disk Manager Administrative Service and select properties. If you've got another (working) machine you can check all settings against that, otherwsie check another DCOM component (such as Automatic Updates) to check settings against.

LimitLogon: http://www.microsoft.com/technet/technetma...ht/default.aspx

Guess that's what I get for being out a week - didn't even know that one was released .

The HP daemon included in most HP software packages is known to cause issues with that package, and removing it resolves the issue. Also, the package is 908531, sorry.

When did this start happening, and have you tried using shellexview and autoruns to disable all non-MS items (and reboot) to see if the problem persists?

Since this isn't a Windows function, but a video driver function, your video driver must support (and implement) the function.

Uninstall 908951 or any HP software you have on your machine, and the problem should go away.

I guess I should not read posts that early in the morning - if system restore does not work, perhaps sfc /scannow or a repair install will get you back in business.

Gunsmokingman, as per your request, here's the script after I "touched" it : ' // ************************************************** ' // ' // Variables for the WMI class Dim strComputer : strComputer = "." Dim objWMIService ' // ************************************************** ' // ' // Objects for the script Dim Act : Set Act = CreateObject("Wscript.Shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim SD : SD = Act.ExpandEnvironmentStrings("%SystemDrive%") Dim CName : CName = Act.ExpandEnvironmentStrings("%ComputerName%") Dim FName : FName = (SD & "\" & CName & ".txt") Dim UName : UName = Act.ExpandEnvironmentStrings("%UserName%") ' // ************************************************** ' // ' // HTA Variables Dim HtaStyle1, HtaStyle2, Ln1, S_3, S_5 , Table1,TdBig, TdSmall, V : V = vbCrLf S_5 = Space(5) : S_3 = Space(3) : Ln1 = Chr(171) & " --------------------------------- " & Chr(187) HtaStyle1 = "font:8.75pt;font-family:Palatino Linotype;color:#000080;" HtaStyle2 = "font:8.75pt;font-family:Palatino Linotype;color:#808080;" HtaStyle1 = "<TD Style=""" & HtaStyle1 & """ Width=""135""><B> " HtaStyle2 = "<TD Style=""" & HtaStyle2 & """ Width=""275""><B> " TdBig = "<TD Style=""font:8.75pt;font-family:Palatino Linotype;color:#000080;text-align:CENTER; "" WIDTH=""450"">" TdSmall = "<TD Style=""font:8.75pt;font-family:Palatino Linotype;color:#009000;text-align:CENTER;"" WIDTH=""350"">" Table1 = "<TABLE BORDER=""1"">" ' // ************************************************** ' // ' // Variables To Convert Size Dim GB, MB : GB = 1024 * 1024 * 1024 : MB = 1024 * 1024 ' // ************************************************** ' // ' // Convert WMI Date Format Dim aDate, aDate1, aDate2, aDate2a, aDate3 Dim BDate, BDate1, BDate2, BDate2a, BDate3 ' // ************************************************** ' // ' // WMI Object Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") ' // ************************************************** ' // ' // Message to let user know that the script is starting Act.Popup "Preparing to run System Report on " & CName & V &_ "This will take a few minutes to complete.", 5,"System Report", 0 + 32 ' // ************************************************** ' // ' // WMI Computer Class Dim Computer, ObjComp , ObjCompHta Set Computer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each ObjComp in Computer Dim CpuCount: CpuCount = ObjComp.NumberOfProcessors Dim Ram : Ram = FormatNumber(ObjComp.TotalPhysicalMemory / MB,1) '''' --> HTA OUTPUT Computer ObjCompHta = ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Computer Information</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Logon On Name</TD>" & V &_ HtaStyle2 & UCase(UName)& "</TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Computer Name</TD>" & V &_ HtaStyle2 & UCase(CName)& "</TD></TABLE>" & V &_ "<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Mother Board Information</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Manufacturer</TD>" & V &_ HtaStyle2 & UCase(ObjComp.Manufacturer) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Description</TD>" & V &_ HtaStyle2 & UCase(ObjComp.Description) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Model</TD>" & V &_ HtaStyle2 & UCase(ObjComp.Model) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Installed Ram</TD>" & V &_ HtaStyle2 & Ram & " MB" & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "SystemType</TD>" & V &_ HtaStyle2 & UCase(ObjComp.SystemType) & "</TD></TABLE>" & _ "</TD></TABLE>") Next ' // ************************************************** ' // ' // WMI Bios Class Dim Bios, objBios , objBiosHta Set Bios = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS",,48) '''' --> START THE WMI Bios Class For Each objBios in Bios BDate = Left(objBios.ReleaseDate,8) BDate1 = Left(BDate,4) : BDate2 = Right(BDate,4) BDate2a = Left(BDate2,2) : BDate3 = Right(BDate2,2) Dim BiosDate : BiosDate = BDate1 & "-" & BDate2a & "-" & BDate3 '''' --> HTA OUTPUT objBios objBiosHta = ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Bios Information</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Bios Release Date</TD>" & HtaStyle2 & BiosDate & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Bios Made By</TD>" & HtaStyle2 & UCase(objBios.Manufacturer) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Bios Version</TD>" & HtaStyle2 & UCase(objBios.Version) & "</TD></TABLE>" & _ "</TD></TABLE>") Next ' // ************************************************** ' // ' // WMI OsInfo Class Dim OsInfo , objOs, objOsHta Set OsInfo = objWMIService.ExecQuery( "SELECT * FROM Win32_OperatingSystem",,48) For Each objOs in OsInfo aDate = Left(objOs.InstallDate,8) aDate1 = Left(aDate,4) : aDate2 = Right(aDate,4) aDate2a = Left(aDate2,2) : aDate3 = Right(aDate2,2) Dim WinDate, N1, ServicePack : N1 = Split(objOs.Name,"|") ServicePack = UCase(objOs.CSDVersion) WinDate = aDate1 & "-" & aDate2a & "-" & aDate3 '''' --> HTA OUTPUT OsInfo objOsHta = ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Operating System Information</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "OS Name</TD>" & HtaStyle2 & UCase(N1(0)) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "OS Version</TD>" & HtaStyle2 & UCase(objOs.Version) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "OS Install Date</TD>" & HtaStyle2 & WinDate & "</TD></TABLE>" & _ "</TD></TABLE>") Next ' // ************************************************** ' // ' // Collects the Security Updates and Service Pack currently installed Dim Cnt, i, KbInfo, KbInfoHta, RptHta, RptKB, RP_1, RP_2, RP_3, RP_4, RP_5 Dim MsUpS : Set MsUpS = CreateObject("Microsoft.Update.Session") Dim SeekUp : Set SeekUp = MsUpS.CreateUpdateSearcher Dim SeekR : Set SeekR = SeekUp.Search("Type='Software'") Dim StrUP : Set StrUP = SeekR.Updates KbInfo = ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Service Pack Information</B></TD></TABLE>" & Table1 & HtaStyle1 & V &_ "Service Pack Installed</TD>" & HtaStyle2 & ServicePack & "</TD></TABLE>") For i = 0 to StrUP.Count - 1 RP_1 = StrUP.Item(i).Title If InStr(RP_1,"Security Update") Then Cnt = StrUP.Count RP_2 = Replace(RP_1,"Security Update for Windows XP","XP") RP_3 = Replace(RP_2,"Security Update for"," ") RP_4 = Replace(RP_3,"for Windows XP","XP") RP_5 = Replace(RP_4,"Microsoft .NET Framework, Version 1.1 Service Pack 1","Ms.NetFrameWork-Ver-1.1-SP1") RptKB = RP_5 RptHta = RptHta & V & S_3 & Table1 & HtaStyle1 & "Security Update Name</TD>" & V & S_3 & HtaStyle2 & RptKB & "</TD></TABLE>" End If Next '''' --> Security Update information for the HTA KbInfo = KbInfo & V & S_3 & ("<TABLE Bgcolor="""" Style="""">" & TdBig & V & S_3 &_ Table1 & TdSmall & "<B>Installed Security Updates Total = " & Cnt & "</B></TD></TABLE>" & V & S_3 &_ Table1 & TdSmall & "<B>This does not include Languages Updates</B></TD></TABLE>") KbInfoHta = (KbInfo & V & S_3 & RptHta & "</TD></TABLE>") ' // ************************************************** ' // ' // WMI CpuInfo Class Dim CpuInfo, objCPU , CpuInfoHta Set CpuInfo = objWMIService.ExecQuery( "SELECT * FROM Win32_Processor",,48) For Each objCPU in CpuInfo '''' --> HTA OUTPUT CpuInfo CpuInfoHta = ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>CPU Information</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Manufacturer</TD>" & V &_ HtaStyle2 & UCase(objCPU.Manufacturer) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Processor Name</TD>" & V &_ HtaStyle2 & UCase(objCPU.Name) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Number Of CPU`s</TD>" & V &_ HtaStyle2 & CpuCount & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Cpu Details</TD>" & V &_ HtaStyle2 & UCase(objCPU.Description) & "</TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Processor Speed</TD>" & V &_ HtaStyle2 & objCPU.MaxClockSpeed & " MHZ" & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "L2 Cache Size</TD>" & V &_ HtaStyle2 & objCPU.L2CacheSize & "</TD></TABLE>" & V &_ Table1 & HtaStyle1 & "L2 Cache Speed</TD>" & V &_ HtaStyle2 & objCPU.L2CacheSpeed & " MHZ" & "</TD></TABLE>" & V &_ "</TD></TABLE>") Next ' // ************************************************** ' // ' // WMI HDinfo Class Dim HDinfo, ObjHD, HDinfoHta Set HDinfo = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive",,48) For Each ObjHD In HDinfo Dim HDS, HDId : HDS = Left(ObjHD.Size / GB,5) : HDId = Right(ObjHD.DeviceID,14) '''' --> HTA OUTPUT HDinfoHta HDinfoHta = HDinfoHta & ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Hard Drive Information</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Hard Drive Model</TD>" & V &_ HtaStyle2 & UCase(ObjHD.Model) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Device ID</TD>" & V &_ HtaStyle2 & UCase(HDId) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Hard Drive Size</TD>" & V &_ HtaStyle2 & HDS & " GB" & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Number Of Partitions</TD>" & V &_ HtaStyle2 & ObjHD.Partitions & "</TD></TABLE>" & V &_ "</TD></TABLE>") Next ' // ************************************************** ' // ' // WMI Partition Class Dim Partition , ObjPart, PartitionHta Set Partition = objWMIService.ExecQuery ("SELECT * FROM Win32_LogicalDisk where DriveType = 3") For Each ObjPart In Partition Dim Pfs, Ps, UsedSpace,Small, Large Ps = Left(ObjPart.Size /GB,5) : Pfs = Left(ObjPart.FreeSpace / GB,5) : UsedSpace = Ps - Pfs If UsedSpace < 1 Then Ps = Left(ObjPart.Size /MB,5): Pfs = Left(ObjPart.FreeSpace / MB ,5) : UsedSpace = Ps - Pfs : Small = Left(UsedSpace,5) PartitionHta = PartitionHta & ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Partition Information Less than a GigaByte of Used Space</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Partition Letter</TD>" & V &_ HtaStyle2 & ObjPart.Name & "\" & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Volume Name</TD>" & V &_ HtaStyle2 & UCase(ObjPart.VolumeName) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Total Size</TD>" & V &_ HtaStyle2 & Ps & " MB" & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Free Space</TD>" & V &_ HtaStyle2 & Pfs & " MB" & "</TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Used Space</TD>" & V &_ HtaStyle2 & Small & " MB" & "</TD></TABLE>" & V &_ Table1 & HtaStyle1 & "File System</TD>" & V &_ HtaStyle2 & UCase(ObjPart.FileSystem)& "</TD></TABLE>" & V &_ "</TD></TABLE>") Else Large = Left(UsedSpace,5) PartitionHta = PartitionHta & ("<TABLE Bgcolor="""" Style="""">" & TdBig & Table1 & TdSmall & V &_ "<B>Partition Information More than a GigaByte of Used Space</B></TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Partition Letter</TD>" & V &_ HtaStyle2 & ObjPart.Name & "\" & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Volume Name</TD>" & V &_ HtaStyle2 & UCase(ObjPart.VolumeName) & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Total Size</TD>" & V &_ HtaStyle2 & Ps & " GB" & "</TD></TABLE>" & _ Table1 & HtaStyle1 & "Free Space</TD>" & V &_ HtaStyle2 & Pfs & " GB" & "</TD></TABLE>" & V &_ Table1 & HtaStyle1 & "Used Space</TD>" & V &_ HtaStyle2 & Large & " GB" & "</TD></TABLE>" & V &_ Table1 & HtaStyle1 & "File System</TD>" & V &_ HtaStyle2 & UCase(ObjPart.FileSystem)& "</TD></TABLE>" & V &_ "</TD></TABLE>") End If Next ' // ************************************************** ' // ' // Start the HTA output Dim MkHta : MkHta = SD & "\ComputerInfo_V1.Hta" Dim Ts : Set Ts = Fso.CreateTextFile(MkHta) Dim ButtonStyle, BodyStyle, Button, ScriptJS, ScriptVBS, StyleHta, TopVar ' // ************************************************** ' // ' // Body background for the HTA CSS Style BodyStyle = "Body.Normal {font:10.75pt;font-family:Palatino-Linotype;color:#004040;background-color:#ed0926;filter:" & V & S_3 &_ "progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#eeeeee',endColorStr='#d0d0d0');" & V & S_3 &_ "padding-top:1;padding-bottom:1;Text-Align:Center;Valign:Top;} " ' // ************************************************** ' // ' // Button back ground for the HTA CSS Style ButtonStyle = " .Button {font-family:Palatino-Linotype;font-size :8.75pt;font-weight:Bold-Italic;" & V & S_3 &_ "line-height:110%;color:#000080;background-color:#6CA2E3;filter:progid:DXImageTransform.Microsoft.Gradient" & V & S_3 &_ "(GradientType=0,StartColorStr='#c0bcb6',endColorStr='#ffffff');width:91;height:25;" & V & S_3 &_ "padding-top:1;padding-bottom:1;padding-left:5;padding-right:5;margin-right:5;margin-left:5;}" ' // ************************************************** ' // ' // CSS Variables for the HTA StyleHta = S_3 & V & S_3 & "<style type=""text/css"">" & V &_ S_3 & BodyStyle & V & S_3 & ButtonStyle & V & S_3 & "</STYLE>" ' // ************************************************** ' // ' // JS script for the HTA ScriptJS = "<script language=javascript>" & V & S_3 & _ "window.resizeTo (535,791), window.moveTo (250,75);" & V & S_3 & _ "var V=('\\'), Hidden =(""0""), Normal = (""1""), Min = (""2""),Max = (""3"");" & V & S_3 & _ "var Fso = new ActiveXObject(""Scripting.FileSystemObject"");" & V & S_3 & _ "var Act = new ActiveXObject(""Wscript.Shell"");" & V & S_3 & _ "var enumItems = new Enumerator(Fso.Drives);" & V & S_3 & _ "function DeFragDrv(Drv)" & V & S_3 & _ " { for (; !enumItems.atEnd(); enumItems.moveNext()) " & V & S_3 & _ " { var objItem = enumItems.item(), Drv_L = objItem.DriveLetter;" & V & S_3 & _ " if ( objItem.IsReady == true); if ( objItem.DriveType == 2)" & V & S_3 & _ " { var HD_Report =""Did You Want To Defrag This Drive"" +'\n'+ "" Drive : "" +Drv_L+ "":"" +V " & V & S_3 & _ " var DefragIt = confirm(HD_Report);" & V & S_3 & _ " if ( DefragIt == true ){Act.Run(""Defrag "" +Drv_L+ "":"" +V+ "" -F"",Min,true);}}}}" & V & S_3 & _ "function ClnMgr()" & V & S_3 & _ " {Act.run (""cleanmgr /sagerun:99"",Normal , true);}" & V & S_3 & _ "function DrvDeFrag(Drv)" & V & S_3 & _ "{ for (; !enumItems.atEnd(); enumItems.moveNext())" & V & S_3 & _ "{ var objItem = enumItems.item(), Drv_L = objItem.DriveLetter;" & V & S_3 & _ " if ( objItem.IsReady == true); if ( objItem.DriveType == 2)" & V & S_3 & _ "{Act.Run(""Defrag "" + objItem.DriveLetter + "":"" + V + "" -F"",Min,true);}}}" & V & S_3 & _ "function ClnMgrDefrag(Drv)" & V & S_3 & _ "{Act.run (""cleanmgr /sagerun:99"",Normal , true),DrvDeFrag(), alert(""Completed Clean Manager and Defrag"");}" & V & S_3 & _ "function DrvDeFrag(Drv)" & V & S_3 & _ "{ for (; !enumItems.atEnd(); enumItems.moveNext())" & V & S_3 & _ "{ var objItem = enumItems.item(), Drv_L = objItem.DriveLetter;" & V & S_3 & _ " if ( objItem.IsReady == true); if ( objItem.DriveType == 2)" & V & S_3 & _ "{Act.Run(""Defrag "" + objItem.DriveLetter + "":"" + V + "" -F"",Min,true);}}}" & V & S_3 & _ "function ClnMgrDefrag(Drv)" & V & S_3 & _ "{Act.run (""cleanmgr /sagerun:99"",Normal , true),DrvDeFrag(), alert(""Completed Clean Manager and Defrag"");}" & V & S_3 & _ "</SCRIPT>" ' // ************************************************** ' // ' // Make the actual HTA Ts.WriteLine S_3 & StyleHta & V & S_3 & ScriptJS Ts.WriteLine S_3 & "<Body" & " CLASS=""Normal"">" & V &_ "<B>" & Ucase(CName & " Information") Ts.WriteLine S_3 & "<Table><TD CLass="""">" Ts.WriteLine S_3 & "<Input Type=""Button"" Class=""Button"" Value=""CleanManager"" OnClick=""ClnMgr()""></TD><TD CLass="""">" Ts.WriteLine S_3 & "<Input Type=""Button"" Class=""Button"" Value=""Defrag A HD"" OnClick=""DeFragDrv()""></TD><TD CLass="""">" Ts.WriteLine S_3 & "<Input Type=""Button"" Class=""Button"" Value=""Run Both"" OnClick=""ClnMgrDefrag()""></TD><TD CLass=""""></TABLE>" Ts.WriteLine S_3 & ObjCompHta Ts.WriteLine S_3 & objOsHta Ts.WriteLine S_3 & KbInfoHta Ts.WriteLine S_3 & objBiosHta Ts.WriteLine S_3 & CpuInfoHta Ts.WriteLine S_3 & HDinfoHta Ts.WriteLine S_3 & PartitionHta Ts.Close ' // ************************************************** ' // ' // Run the HTA, then ask to delete or keep the HTA Act.Run(MkHta),1,True Dim ZZ1 : ZZ1 = Act.Popup("Did you want to keep this file?" & V & MkHta &_ V & "Yes to Keep" & S_5 & "No to delete" & V & "If you do not make a select in" &_ V & "One minute then it saves the file", 61,"Keep Or Delete", 4 + 48) If ZZ1 = 7 Then Fso.DeleteFile(MkHta) End If ' // ************************************************** ' // ' // Delete the VBS file If Fso.FileExists(SD & "\SystemReport.vbs") Then Fso.DeleteFile(SD & "\SystemReport.vbs") End If And attached for those of us who don't like the copy/paste from the code window. gunsmokingman.txt

Note the spaces in your path! You would need it to look like this for what you are currently doing to work: REG ADD %KEY%\008 /V 1 /D "\"U:\Firefox\Firefox Setup 1.5.0.2.exe\" -ms" /f

One other thing - if you installed a DNS server on the W2K3 box and are using said server for 'net resolution, make sure you don't have a "." domain - that'll kill 'net browsing (the . tells it it's a root nameserver, and since it isn't, resolution fails). Not saying that's what you've got, but if you do, this will happen. I would strongly suggest making sure your IP and DNS settings are similar to those of the XP workstation to make sure that isn't the issue.

try using user@domain.tld instead of just user - honestly, I haven't had issues like this with the script in my 2K3 domain, so I'm not sure what else I can tell you. You could use the Restricted Groups in AD to accomplish this as well, and that had slipped my mind. If the above change doesn't work, you can always try using Restricted Groups in GPO to add the user/group to a local group as well.

Assuming simple file sharing is enabled on the XP Pro box, you still need to either have the guest account enabled on all machines (to allow anonymous access), or have the same user/password on all machines. Otherwise, you'll fail to be able to see anything on another machine due to permissions.

Remember, you're running this as a machine account - the machine accounts must have at least READ access to the share where the script is stored.

Windows 2003 doesn't have bluetooth support, but I would think that if you have the XP QFE patch, you could use /x and extract/install it that way. I've never tried, but I suppose it is possible.

Have you tried system restore?

Are the user accounts and passwords the same on all machines?

You can create the connection using the CMAK on a Windows 2000/2003 server, but you'll always have to provide a password (you can put it in the file used by the CMAK, but it still doesn't work).

Perhaps your network interface isn't working? Try putting in an ipconfig /all statement, then a pause, and see if you've even got an IP address.

Instead of using regedit in your scripts, try replacing it with %systemroot%\regedit.exe - it may be balking on the path (perhaps it cannot find regedit).

If it is running, you should see the firewall enabled. When you start the computer, is the service running? If so, what is the firewall set to at that point?

Are you doing this as a USER logon script, or a MACHINE logon script? It won't work as a user, but works fine as a machine logon script: GPO > Computer Configuration > Windows Settings > Scripts > Startup And remember, this needs to be configured as a GPO on the OU with the COMPUTER accounts in it, not the USER accounts.