How to tell .vbs Script on look for IP Address in a .txt file
- From: "Athif" <zkathif@xxxxxxxxxxx>
- Date: 29 Jan 2006 05:23:26 -0800
Hi there,
I am actually trying to remove WinZip for all the users in my domain
remotely. There is an excellent script on
http://www.enterpriseitplanet.com/resources/scripts_sms/article.php/3084091which
will remove winzip silently.
Is there any way where we can tell the script to read IP_Address.txt
file which includes all the IP Addresses in my domain and remove them
accordingly.
I am sure this is possible. Please advice.
Script: (Watch for Word Wrap)
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' Uninstall WinZip
'
' This script uninstalls WinZip 8.0 cleanly with no user prompting
'
' Steve Shockley, 08Nov2001
On Error Resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
main()
sub main()
'Let's find out where WinZip is installed
WZPath=regget("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App
Paths\winzip32.exe\")
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run WZPath & " /uninstallx",0,TRUE
FullWZPath = replace(WZPath, "PROGRA~1", "Program Files")
DeleteAFolder(left(FullWZPath,(len(FullWZPath)-13)))
end sub
function regget(value)
on error resume next
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
end function
function DeleteAFolder(filespec)
Dim fso
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(filespec)
end function
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Thanks,
Athif - MVP
.
- Follow-Ups:
- Prev by Date: Re: Gathering Workstation IP Address
- Next by Date: Re: Gathering Workstation IP Address
- Previous by thread: Gathering Workstation IP Address
- Next by thread: Re: How to tell .vbs Script on look for IP Address in a .txt file
- Index(es):
Relevant Pages
|
Loading
