Sole's Blog

saulnier:

Hello I am currently in my internship and my tutor asked to make a script or. exe netware because we leave for the open source and your script should have its application, but yet I do not c anything back because when I follow almost all a faith that I run it it makes me an error message to guide me thank you

02J:

Excellent script. I added a small modification to write results to a SQL DB.

Here are some additional Agent GUIDs with Version:

“{C5E122A0-09A8-4B9D-A010-9B20F5348C09}”_ ‘ 6.5.14.40614
“{F5DB4286-0064-4574-936B-09115C7A5A07}”,_ ‘ 6.5.84.50204
“{0028ED8D-E938-4B81-B636-F20B3207086F}”,_ ‘ 7.0.101.70213
“{17ABBB0D-F2B1-4C78-A64F-2DC1C1E7A4DE}”,_ ‘ 7.0.7.50808

Here’s what relevant portion the original code + my SQL code looks like: (I’m not sure why I needed the portion “Version = Value”. When I tried to use Value directly it wouldn’t work. The sections enclosed in will need to be replaced with appropriate settings for your environment.)

‘ We search each guid to see if it exist and what displayversion it is
For Each GUID In GUIDArray
objReg.GetStringValue HKLM, SubKey & GUID, ValueName, Value
If Len(Value) > 2 Then
WScript.Echo “ZenWorks GUID Found : ” & GUID & ” DisplayVersion = ” & Value
WshShell.Run “Taskkill.exe /f /im zenrem32.exe”, 0, False ‘ Kill the ZenWorks mgt agent in case it hangs, so it wont block our uninstall, and we dont want to wait before continueing, so False.
WshShell.Run “MsiExec.exe /x ” & GUID & ” REBOOT=ReallySuppress /qn”, 0, True ‘ I dont want the uninstall to reboot or show anything to the user…
WScript.Echo “Checking if uninstalled.”
objReg.GetStringValue Key, SubKey & GUID, ValueName, Value2
If Value = Value2 Then
WScript.Echo “UN-Successfull uninstall of ZenWorks Version: ” & Value
sAction = “Failure”
Version = Value
Else
WScript.Echo “Successfull uninstall of ZenWorks Version: ” & Value
sAction = “Success”
Version = Value
End If
End If
Next

Set objNetwork = CreateObject(“Wscript.Network”)
strComputerName = objNetwork.ComputerName
Set mConnection = CreateObject(“ADODB.Connection”)
mConnection.Open “Provider=SQLOLEDB.1;Data Source=;Initial Catalog=”,””,””
Set rs = mConnection.Execute(“SELECT NEWID()”)
If Not rs.EOF Then GUID = rs(0)
mConnection.Execute “DECLARE @GUID uniqueidentifier; SET @GUID = ‘” & GUID &”‘; INSERT INTO (ID, Computer, Action, Version, Time) VALUES (@GUID, ‘” & strComputerName & “‘, ‘” & sAction & “‘, ‘” & Version & “‘, ‘” & Now() & “‘)”
Set mConnection = Nothing

Jeff Smith:

Sole, will this script run for users with limited policy rights? Or, if possible, can the script run in what’s know as workstation security space?
Thanks!

Greg:

This may be a silly question, but this appears at first glance to be for removing the ZFDAgent from the workstations…or is this applicable to removing Zenworks from Windows servers? For what it’s worth, we’re moving from ZENworks 7 to Symantec’s Altiris and the ZENworks cleanup is horrible.

Compaq:

Hi sole
need to uninstall the zen works agent which is placed in almost 3000 desktops, Could please give the right code either a batch file or a vb so that i can include in users logon as they login with novel client id(using Edirectory)

DanV:

found key:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{C5E122A0-09A8-4B9D-A010-9B20F5348C09}

Patrick Farrell:

Instead of making an array of all product codes, why not just pull the current product code from the registry?

GUID=GetProductCode(“ZENworks Desktop Management Agent”)

That’s how I do it here and it works well with the script that I use for uninstalling msi’s.

Anthon:

Just wanted to share my modification of the original script.
This i use to uninstall zenworks 10.3.3

On Error Resume Next ‘ We dont like users finding out we cant program!

Const HKLM=&H80000002 ‘HKEY_LOCAL_MACHINE
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set objReg=GetObject(“winmgmts:!root/default:StdRegProv”) ‘ Registry access
Set WshShell = WScript.CreateObject(“WScript.Shell”) ‘ used For executing a command line command

‘ I would like to know what version of ZENworks this is, only to find out if i uninstalled it successfully.
‘ You may remove this if you dont care

SubKey = “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\”
ValueName = “DisplayVersion”
KeyType = REG_SZ
‘ This is all the GUID’s I have found so far that is related to ZENworks
‘ if you find a version, that is not in here, go to the location in registry you see in SubKey
‘ Go thru each GUID and find the one with ZENworks, and add it below
‘ Also do write a comment with the GUID and version you found on <a href="http://www.sole.dk“>http://www.sole.dk !
GUIDArray = Array(_
“{076EF7C2-6F61-4753-BFC1-796E04C49CF7}”,_
“{15A3C0D8-3D81-4CF6-8797-E27BDE5F8573}”,_
“{166763F3-BAEB-433A-A834-1FD86E19B55D}”,_
“{1717FEDC-6D5A-44B7-AB98-814834F0E695}”,_
“{17C573A8-D916-4166-81A6-7C5C608919CA}”,_
“{1AEEA8FF-AFF1-4BE6-A9DE-A2F10F69BA4E}”,_
“{1BE23A18-1B51-4F59-8326-33CA5F1294F4}”,_
“{1CA2B9F5-835B-46C2-8961-D52C96C613B7}”,_
“{1CE5F3D4-CF76-453E-BDF7-98DFD2588B67}”,_
“{27AAD3D9-92BA-459F-9A81-0B9DB195F801}”,_
“{2CB10E96-23CD-4AE2-A7C4-9CF75463C174}”,_
“{2FE4A854-6739-45B9-AF0B-270AA25215F4}”,_
“{364DA896-84B4-4887-95AA-5A2953234217}”,_
“{3C6849B6-1953-4DAF-9A8B-783FB72F3CBB}”,_
“{446A6549-46F8-48C1-ABDE-564A91819F2C}”,_
“{4CD57A44-0FE0-44B5-AC1A-BDE5490FEA6F}”,_
“{4DF669B8-5B56-4174-AFDE-BE7DA0662850}”,_
“{59227974-8DF9-4422-943A-C9740BE21D22}”,_
“{595716AC-C66E-4278-AC38-E0541DAA3621}”,_
“{5E2C544D-539F-412D-BE71-0EBC7083841C}”,_
“{5FCDC863-72E2-4C1A-86B2-593018307B1C}”,_
“{6034D614-E53F-46F2-B0BC-280222D569C2}”,_
“{79EE919C-7A93-4868-8B42-EF8F9B14FFFC}”,_
“{87467DDA-0189-4730-A3A6-079429D1657B}”,_
“{925E8226-FBED-43FD-BC8C-41207B999AF0}”,_
“{951F94FD-DDBB-4A15-B8E7-1560D3D28900}”,_
“{A6D5C59E-F97B-4665-B811-DC93635E05B0}”,_
“{AD98F2ED-D92A-43AA-9F28-0466928AA13C}”,_
“{AF2E0395-7695-41E8-AC23-D58C328126F7}”,_
“{B61393AC-4E96-497B-8314-1F18B3FE9474}”,_
“{B904F122-BACE-41BD-8BE0-1FFA8E8E3135}”,_
“{BB3E5DFB-5EAD-4E2C-A0B5-71045C0784FF}”,_
“{BC9FD7FB-5929-47F7-9B24-D9237B14F26E}”,_
“{BE0B37FE-EF39-4B9C-A329-904616EE633C}”,_
“{C2ECE9F2-CAB3-4EFE-B45B-2D08B2954AF5}”,_
“{C8FE6530-2E39-4563-A7D8-183C7FA2B76A}”,_
“{CBA13F11-D29E-48CC-9EBC-F122567F9119}”,_
“{CD124C12-BEFD-4DBA-A915-A2F995F56B13}”,_
“{D4CAD0A4-A14D-4F70-A8CB-475776C76CF8}”,_
“{D6EA1689-AA4C-4CF6-862C-87D9877F3651}”,_
“{D9CFF2FF-620F-4842-A075-8A0769816FA4}”,_
“{E8542277-8C9D-4CC9-8D92-7C126EE7110E}”,_
“{EC482C6E-8F7F-4187-BB4C-841E1B64022B}”,_
“{EE1B5DDC-BE68-4F19-BEEE-7FFD4DD43BFD}”,_
“{F594EA1A-5603-4B82-B624-BE1F807BC8E1}”,_
“{FEAD3C72-1A18-4BAB-94FB-E508C31B2E79}”_
)
‘ We search each guid to see if it exist and what displayversion it is
For Each GUID In GUIDArray
objReg.GetStringValue HKLM, SubKey & GUID, ValueName, Value
If Len(Value) > 2 Then
‘WScript.Echo “ZENworks GUID Found : ” & GUID & ” DisplayVersion = ” & Value
WshShell.Run “Taskkill.exe /f /im zenrem32.exe”, 0, False ‘ Kill the ZENworks mgt agent in case it hangs, so it wont block our uninstall, and we dont want to wait before continueing, so False.
WshShell.Run “MsiExec.exe /x ” & GUID & ” REBOOT=ReallySuppress /qn”, 0, True ‘ I dont want the uninstall to reboot or show anything to the user…
‘ WScript.Echo “Checking if uninstalled.”
‘objReg.GetStringValue Key, SubKey & GUID, ValueName, Value2
‘If Value = Value2 Then
‘WScript.Echo “UN-Successfull uninstall of ZENworks Version: ” & Value
‘ Else
‘WScript.Echo “Successfull uninstall of ZENworks Version: ” & Value
‘End If
End If
Next

‘Stop ZENworks Deamon and ZENworks Notify Icon
Set colProcessList = objWMIService.ExecQuery _
(“SELECT * FROM Win32_Process WHERE Name = ‘ZenUserDaemon.exe'”)
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Set colProcessList = objWMIService.ExecQuery _
(“SELECT * FROM Win32_Process WHERE Name = ‘ZenNotifyIcon.exe'”)
For Each objProcess in colProcessList
objProcess.Terminate()
Next

‘Remove Novell ZENworks Preagent Service
Set colListOfServices = objWMIService.ExecQuery _
(“Select * from Win32_Service Where Name = ‘ZENPreAgent'”)

For Each objService in colListOfServices
objService.StopService()
objService.Delete()
Next

‘Restart explorer.exe
dim strComputer
dim wmiNS
dim wmiQuery
dim objWMIService
dim colItems
dim objItem

wmiNS = “\root\cimv2”
wmiQuery = “Select processID from win32_process where name = ‘explorer.exe'”

Set objWMIService = GetObject(“winmgmts:\\” & strComputer & wmiNS)
Set colItems = objWMIService.ExecQuery(wmiQuery)

For Each objItem in colItems
objItem.terminate(1) ‘need 1 to keep from restarting explorer
Next
Dim obj ‘uses get method to get win32_process so we can launch new explorer
Set obj = objWMIService.Get(“win32_process”)
obj.create(“explorer.exe”)

‘Remove Novell ZENworks PreAgent files
Set filesys = CreateObject(“Scripting.FileSystemObject”)
filesys.DeleteFolder “C:\Windows\Novell\Zenworks”
filesys.DeleteFolder “C:\Program\Novell\zenworks”
‘Cleanup
Set objReg = Nothing
Set WshShell = Nothing
Set colProcessList = Nothing
Set colItems = Nothing
Set colListOfServices = Nothing
Set objWMIService = Nothing
Set objReg=GetObject = Nothing
Set obj = Nothing
Set filesys = Nothing
msgbox “Please reboot…”

Tam:

And is there a way to tell the script to run with administrator credentials/rights? The users in my environment do not have admin rights, but there is a local admin account on each machine with admin rights.

Phil Goldwasser:

I am trying to use the original vbs script and I keep getting an error –

Line 1
Char 1
Error Invalid character
Code 800A0408
Source Microsoft VBscript compilation error

I am not a programmer by any definition and I do not see why the first character of the script should be causing this. Clearly lots of others have this working.

Søren Møller:

I have remove my zenworks installations using this, run by administrator or use with admin rights.

________________________________________________

@echo off
Echo “Nu fjernes Zenworks med bruger %username%” >> c:\zen_remove.txt
Echo “%ZENWORKS_HOME%\bin\zenworksuninstall.exe” >> c:\zen_remove.txt
Echo “Uninstall startet %date% – %time%” >> c:\zen_remove.txt

“%ZENWORKS_HOME%\bin\zenworksuninstall.exe” -c -q
call MsiExec.exe /X{E016C7E1-AC80-4C90-9F8B-3EF16ABA2834} /q
call MsiExec.exe /X{F5313E94-F17E-4AF6-8E46-6D97ECF4C37} /q
call MsiExec.exe /X{71A7E068-AEBB-4B1A-AED6-398B987A5B5C} /q
call MsiExec.exe /X{C8454298-0208-440E-9A60-8DC277E35BA0} /q
call MsiExec.exe /X{299D7ED0-47CD-4A2A-A7DD-E9624A9A0BF4} /q
call MsiExec.exe /X{3C6849B6-1953-4DAF-9A8B-783FB72F3CBB} /q
call MsiExec.exe /x{08044C1C-760B-45D1-81B7-10C690313012} /q
call MsiExec.exe /x{FE0D2049-AD64-418D-A2BD-5C60B940F27D} /q
Call MsiExec.exe /X{B27E0CE7-EA0F-4735-87D3-BAD8E675A020} /q
CALL MsiExec.exe /X{E256408F-0FA0-418F-88D9-F4980648F5E0} /q
Call MsiExec.exe /X{FE0D2049-AD64-418D-A2BD-5C60B940F27D} /q
Taskkill.exe /f /im zennotifyicon.exe

Echo “Uninstall sluttet %date% – %time%” >> c:\zen_remove.txt
exit

Naved:

Hi Sole,,,

I am new for the novell, i have install the Zenworks 11 Sp 1 on the Server and all the clients are connected with the server. but due to some issue “ZesService is not Running” Error and some Policy applied failed on the client. Due to that i need to uninstall the clients of 11 sp 1. Can you tell me this script will work on this version.

Please reply….

Jay:

Hello Sole,

Thank you very much for this tool. Great script, only had to make one change for x64 Windows 7, the subkey needed to get changed: SubKey = “SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\”
after that, this tool worked like a champ. Appreciate your help!

chihab:

downloaded the text version removezenworks2.vbs.txt
and changed only the line :
SubKey = “SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\”
to reflect my workstations OS (win7-64-bits). when runing the vbs as administrator nothing happen : i got the following Windows :

C:\cz>cscript.exe C:\cz\removezenworks2.vbs
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation 1996-2001. Tous droits réservés.

thank you for your help.

chihab:

any response ?
thank you.