i am planning to upgrade my isa 2k to 2k4, but i'm really concerned of how to replace old clients with 2k4. i deployed old clients manually and plan to use GPOs to push new ones. anyone can help or guide?
Posts: 2187
Joined: 10.Aug.2004
From: fort frances.on.ca
Status: offline
quote:
i deployed old clients manually
In that case, I don't think that link is of much value. AFAIK, you need to first script the uninstall of the old 2000 client. to do that, the uninstaller will need to access the original share from where it was installed. Hopefully, the share still exists.
Here is a KiX script that will crawl you network and report back. You can modify it to also pull the UninstallString from the reg and then SHELL out to it.
BREAK ON
$BaseKey = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{8C7A59A8-9ABE-459A-9A93-08C281A4A264}'
$objConnection = CreateObject("ADODB.Connection")
$objCommand = CreateObject("ADODB.Command")
$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection
$objCommand.CommandText =
"SELECT Name FROM "
+ "'LDAP://OU=Computers,OU=FF,OU=yada,dc=yada,dc=local'"
+ " WHERE objectCategory='computer'"
$objCommand.Properties("Page Size").Value = 100
$objCommand.Properties("Search Scope").Value = 2
$objCommand.Properties("Cache Results").Value = (not 1)
$objRecordSet = $objCommand.Execute()
$objRecordSet.MoveFirst
while not $objRecordSet.EOF
$curComputer = $objRecordSet.Fields("Name").Value
'.'
IF Ping($curComputer)
$InstallSource = ReadValue('\\'+$curComputer+'\'+$BaseKey,'InstallSource')
If $InstallSource
'InstallSource = '+$InstallSource ?
EndIf
EndIf
;DoX($curComputer)
$objRecordSet.MoveNext
Loop
;===================
Function Ping($PC)
Dim $PC
Shell'%comspec% /c ping -n 1 '+$PC+' >nul'
$Ping = NOT @error
EndFunction
_____________________________
The School of Hard Knocks is a mean teacher. She gives the exam before the lesson.