One of the Main Issues with Dealing with a Groupwise migration is finding the locations of the Archive files. This is not a huge issue if your Users only have a single Archive file, however some users like to split off archives every year, and file them in places.
The following scripts will report back the location of a groupwise log.
these scripts were deployed to run on the desktop aproximatley 5 minutes after logon. If groupwise was running, they work silently, Otherwise they prompt.
First for X86
On Error resume next
'HKEY_LOCAL_MACHINE\Software\Microsoft\PCHealth\ErrorReporting\DW
'DWORD DWReportee 0 (Default) 1 Disable
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\PCHealth\ErrorReporting\DW"
strValueName = "DWReportee"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = "SOFTWARE\Microsoft\PCHealth\ErrorReporting\ExclusionList"
strValueName = "cscript.exe"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = "SOFTWARE\Microsoft\PCHealth\ErrorReporting"
strValueName = "ShowUI"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug"
strValueName = "Auto"
strValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "Debugger"
strValue = "drwtsn32 -p %ld -e %ld -g"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oSH = CreateObject("wScript.Shell")
'intJnk = oSH.Run("drwtsn32.exe -i",8,True)
strComputerName = OSH.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
strudomain = OSH.ExpandEnvironmentStrings( "%userdomain%" )
struName = OSH.ExpandEnvironmentStrings( "%username%" )
struprofile = OSH.ExpandEnvironmentStrings( "%userprofile%" )
strLogFldr = "\\FS10C1\Logs$\ArchiveLogs\"
strLogPath = strLogFldr & struName & ".txt"
strLogLocPath = "C:\Windows\CCM\Logs\GWArchivePath.log"
dim GWApp
Set GWApp = CreateObject("NovellGroupWareSession")
dim GWAccount
Set GWAccount = GWApp.login()
Set oFolder = oFSO.GetFolder(GWAccount.PathToArchive)
ifolder=oFolder&"\"&"of"& GWAccount.AccountProperty(9) &"arc\"
archivesize=oFolder.Size
archivesize=archivesize\1024
if oFSO.folderexists(strLogFldr) Then
Set usrLog = oFSO.OpenTextFile(strLogPath, 8, True)
'usrLog.WriteLine ("UID: " & GWAccount.AccountUID &", ArchivePath: " & ifolder &", SIZE (KB): " & archivesize &", ")
usrLog.WriteLine ("UID: " & GWAccount.AccountUID &", ArchivePath: " & ifolder &", SIZE (KB): " & archivesize &", " & "Computer: " & strComputerName )
Set usrLocLog = oFSO.OpenTextFile(strLogLocPath, 8, True)
'usrLocLog.WriteLine ("UID: " & GWAccount.AccountUID &", ArchivePath: " & ifolder &", SIZE (KB): " & archivesize &", ")
usrLocLog.WriteLine ("UID: " & GWAccount.AccountUID &", ArchivePath: " & ifolder &", SIZE (KB): " & archivesize &", " & "Computer: " & strComputerName )
End if
'GWApp.quit()
'Cleanup
Set StdOut = Nothing
Set oReg = Nothing
Set oFSO = Nothing
Set oSH = Nothing
Set GWApp = Nothing
Set GWAccount = Nothing
Set oFolder = Nothing
Set theFolder = Nothing
Set usrLog = Nothing
Set usrLocLog = Nothing
WScript.Quit
Then For X64
On Error resume next
'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Windows Error Reporting
'DWORD Disabled 0 - Enabled (default) 1 - Disabled
'DWORD DontShowUI 0 - UI (default) 1 - No UI
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\Windows Error Reporting"
'strValueName = "Disabled"
'dwValue = 1
'oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strValueName = "DontShowUI"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oSH = CreateObject("wScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")
strOldWSH = oSH.ExpandEnvironmentStrings("%SYSTEMROOT%\SysWOW64\wscript.exe")
If oFS.FileExists(strOldWSH) Then
If Not UCase(WScript.FullName) = UCase(strOldWSH) Then
oSH.Run """" & strOldWSH & """ """ & WScript.ScriptFullName & """", 1, False
WScript.Quit
End If
End If
strComputerName = OSH.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
struDomain = OSH.ExpandEnvironmentStrings( "%userdomain%" )
struName = OSH.ExpandEnvironmentStrings( "%username%" )
struprofile = OSH.ExpandEnvironmentStrings( "%userprofile%" )
strLogFldr = "\\FS10C1\Logs$\ArchiveLogs\"
strLogPath = strLogFldr & struName & ".txt"
strLogLocPath = "C:\Windows\CCM\Logs\GWArchivePath.log"
dim GWApp
Set GWApp = CreateObject("NovellGroupWareSession")
dim GWAccount
Set GWAccount = GWApp.login()
Set oFolder = oFSO.GetFolder(GWAccount.PathToArchive)
ifolder=oFolder&"\"&"of"& GWAccount.AccountProperty(9) &"arc\"
'gwapp.quit()
archivesize=oFolder.Size
archivesize=archivesize\1024
if oFSO.folderexists(strLogFldr) Then
Set usrLog = oFSO.OpenTextFile(strLogPath, 8, True)
usrLog.WriteLine ("UID: " & GWAccount.AccountUID &", ArchivePath: " & ifolder &", SIZE (KB): " & archivesize &", " & "Computer: " & strComputerName )
Set usrLocLog = oFSO.OpenTextFile(strLogLocPath, 8, True)
usrLocLog.WriteLine ("UID: " & GWAccount.AccountUID &", ArchivePath: " & ifolder &", SIZE (KB): " & archivesize &", " & "Computer: " & strComputerName)
End If
'Cleanup
WERR_Normal
Set StdOut = Nothing
Set oReg = Nothing
Set oFSO = Nothing
Set oSH = Nothing
Set oFS = Nothing
Set GWApp = Nothing
Set GWAccount = Nothing
Set oFolder = Nothing
Set usrLog = Nothing
WScript.Quit
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub WERR_Normal
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\Windows Error Reporting"
strDWORDValueName = "DontShowUI"
objReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName
'Cleanup
Set objReg = Nothing
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
