Do Loop Help...please...
I'm using the Novadigm RADIA solution to deploy software throughout
my enterprise and I'm having a hell of a time with a Mass Deployment
script I wrote.
While deploying software to multiple machines I'd like the script to
recognize if a process is running (because if it is it will hang the
entire deployment) I tried to put another loop statement in my code
but I always get a runtime error requiring another Do. Basically, I'd
like the script to skip the machines on the list with the process
running and move onto the next machine. Right now I have it killing
the process
set objTextStream = objFSO.OpenTextFile("comps.txt", ForReading, true)
Set objFile = objFSO.OpenTextFile("results1.txt", ForAppending, true)
objFile.WriteLine "|SOFTWARE-------( << |+_+| >> )----------SLAM!|"
objFile.WriteLine Now
objFile.WriteLine APP_1
objFile.WriteLine "-----------------------------------------------"
Do While NOT objTextStream.atEndofStream
strTextLine = objTextStream.ReadLine
CompHost = (strTextLine)
Do Until RADPINIT = 0
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & CompHost &
"\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'RADPINIT.EXE'")
If colProcesses.Count = 1 Then
RADPINIT = 1
else
RADPINIT = 0
end If
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & CompHost &
"\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE Name = 'radexecd'")
For Each objService in colServices
errReturnCode = objService.StopService()
Next
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE Name = 'radsched'")
For Each objService in colServices
errReturnCode = objService.StopService()
Next
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE Name = 'radstgms'")
For Each objService in colServices
errReturnCode = objService.StopService()
Next
objShell.Run "%comspec% /c pskill \\"&CompHost&" radpinit&pskill
\\"&CompHost&" radskman&pskill \\"&CompHost&" radrexxw&pskill
\\"&CompHost&" nvdtray&pskill \\"&CompHost&" nmciutils"
objShell.Run "%comspec% /c pskill \\"&CompHost&" radpnlwr&pskill
\\"&CompHost&" radiamsi&pskill \\"&CompHost&" radconct&pskill
\\"&CompHost&" msiexec"
objShell.Run "%comspec% /c pslist \\"&CompHost
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE Name = 'radexecd'")
For Each objService in colServices
errReturnCode = objService.StartService()
Next
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE Name = 'radsched'")
For Each objService in colServices
errReturnCode = objService.StartService()
Next
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE Name = 'radstgms'")
For Each objService in colServices
errReturnCode = objService.StartService()
Next
Loop
objFile.WriteLine CompHost&" - Pushing"
objShell.Run "C:\PROGRA~1\NOVADIGM\RADNTFYC " & CompHost & " WAIT
C:\PROGRA~1\NOVADIGM\RADSKMAN
CAT=PROMPT,ULOGON=N,MNAME=RADDBT3,DNAME=SOFTWARE,PORT=3464,UID=$MACHINE,IP=10.16.21.185,IND=N,STARTDIR=SYSTEM,CONTEXT=M,ADD=N,UPD=N,DEL=N,REP=N,VER=N",
1, TRUE
objShell.Run "C:\PROGRA~1\NOVADIGM\RADNTFYC " & CompHost & " WAIT
C:\PROGRA~1\NOVADIGM\RADSKMAN CAT=N,SNAME=" & APP_1 &
",ULOGON=N,MNAME=RADDBT3,DNAME=SOFTWARE,PORT=3464,UID=$MACHINE,IP=10.16.21.185,IND=N,STARTDIR=SYSTEM,CONTEXT=M,ADD=Y,UPD=Y,DEL=Y,REP=Y,VER=Y",0,false
loop Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146851
Problem with CopyHere and Windows XP
Hello
I have a problem with a simple script that should copy a folder.
The script works with W2K but on Windows XP nothing is copied.
dim wsshell
dim Target
dim Source
set wsshell = CreateObject("Shell.Application")
set Target = wsshell.NameSpace("E:\")
Source = "\\192.168.115.247\Backup\Backup*"
Target.CopyHere Source, FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR
set Source = nothing
set Target = nothing
set wsshell = nothing
'object.CopyFolder' instead works fine but I like to see a progress
dialog while copying.
I found a message <3C0C8F69.AFEF2133@hydro.com> that says Windows XP has
a bug processing wildcards. Can anyone confirm this.
TIA
Knut
--
Sorry, but I'm not very keen on spam
MyName: knut.beese
MyDomain: arcor.de Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146850
Client side form script
does anyone know a script i can use to send a form to an
email address without using a cgi?
any script or suggestions would be useful
thanks
Dave Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146846
scripting as a career
hi,
does anyone does scripting (wsh & wmi) as their career?
can share with me what's you job like?
thanks Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146844
Error 8 when creating process
Hello,
Here is the code:
errReturn = objWMIService.create("c:\RInstall.bat", null, null,
intProcessID)
If errReturn = 0 Then
wscript.Echo " Process started with ID : " & intProcessID
Else
wscript.Echo "errReturn: " & errReturn.
End If
I get errRetuen = 8 on many servers. What does error 8 mean?
Thanks,
Wensi Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146841
filtering security event log
I am trying to return a list of all security events with a "failure". I have
the following:
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Security)}!\\" & _
strComputer & "\root\cimv2")
Set wbemObjectSet = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where" _
& " Logfile = 'Security' and Type = 'audit success'",,48)
For Each wbemObject In wbemObjectSet
wbemObject.Message = Replace(wbemObject.Message,vbcrlf & vbcrlf,vbcrlf)
if (???? = "failure") then
if (x<200) then
Wscript.Echo "RecordNumber: " & wbemObject.RecordNumber
Wscript.Echo "EventCode: " & wbemObject.EventCode
Wscript.Echo "Message: " & wbemObject.Message
x=x+1
else
exit for
end if
end if
Next
The problem is... I can't figure out what to use for the ??? I listed in the
if statement.
Two questions: 1. What can I use for the ??? and 2. Where can I find a
listing of the objects used to access the security event log? I know it's
out there, I just can't find it.
Thanks. Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146836
ADO to Determine REQUIRED Field
Hi,
I have a need to use ADO to Determine If a Field Is a
REQUIRED Field in an Access Table.
The only example I can find is ISAUTOINCREMENT.
http://support.microsoft.com/default.aspx?scid=kb;en-
us;304100
Please help!
Thank You in advance,
t Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146832
outlook send mail
The script below sends e-mail messages taken from txt files using outlook com object .
Create your .txt file with
1) first line: destination e-mail address
2) second line: Subject
3) third line to end of file: body of the message.
All the txt files should be in the same directory
of the script.
The program tries to send the message if in the
first line finds a "@" and a dot, which could be
an e-mail address.
I hope comments in the code will help.
Giovanni.
(Aosta, Italy)
'<%
'Outlook SendMail.vbs
'Versione VBS di un programma già in Visual Basic 5, già modificato
'per l'uso con un oggetto COM e ora per appoggiarsi al modello ad oggetti
'di Microsoft Outlook
'Nella cartella corrente ci sono dei files txt contenenti messaggi di
'posta elettronica. Le prime righe di ogni file contengono rispettivamente :
'1) Indirizzo e-mail del destinatario
'2) Oggetto del messaggio.
'Le righe successive contengono il corpo del messaggio.
'Il programma utilizza l'oggetto COM di Outlook (non express)
'Apre ogni file e se è un messaggio (la prima riga contiene una "@"), lo invia.
'[c] Cenati Giovanni 08.06.02 nnever @katamail.com
'Modificato 19.09.03 per outlook
'This script looks for txt files in current (script) directory and
'if they are message files (with a valid e-mail address in the first line)
'sends the message using outlook (not express).
'The txt file must contain:
'In first line a valid e-mail address of the recipient
'In the second line the subject of the message
'From the third line to the end of file, the body of the message.
dim fso 'as filesystemobject
dim objOL 'as Outlook application
dim CartellaPosta
'oggetto directory dove ci sono i messaggi in formato testo
'Directory where to look for the messages.
dim Messaggi
'collezione di files in CartellaPosta. Collection of files in the folder.
dim FileMsg
'oggetto file trovato in CartellaPosta. Single file object in the folder
dim Messaggio
'file aperto in lettura contenente l'E-Mail. File openend to read the message
dim ContaMail
'numero di messaggi e-mail spediti. Number of sent e-Mails
'Crea istanza agli oggetti necessari al programma
'Creates needed objects
set fso = CreateObject("Scripting.FileSystemObject")
Set objOL = CreateObject("Outlook.Application")
'Ottiene la directory dove è situato script
'Retrieves script directory
ScriptFullName =wscript.ScriptFullName
CurrentPath = Left(ScriptFullName, InStrRev(scriptfullname, "\")-1)
'Recupera tutti i files della directory
'Sets folder where to look for messages and reads all files
set CartellaPosta = fso.GetFolder(CurrentPath)
Set Messaggi = CartellaPosta.Files
For Each FileMsg in Messaggi 'Processa ogni file della cartella
if ucase(right(FileMsg,4))=".TXT" then
'se è un txt... If it's a txt...
Set f = fso.GetFile(FileMsg) 'Ne recupera il nome
Set Messaggio = f.OpenAsTextStream 'Apre il file
'Legge le righe del file contenenti le intestazioni del messaggio e-mail
EmailDestinatario = Cstr(Messaggio.readline)
'Prima riga: indirizzo e-mail del destinatario
'First line: destination e-mail address
Oggetto = Cstr(Messaggio.readline)
'Seconda riga: Oggetto del messaggio
'Second line: subject
Body= ""
'Svuota la variabile e legge tutte le righe del corpo del messaggio.
'Empty the variable which will contain the body of the message.
Do While not Messaggio.AtEndOfStream
Body = Body & Messaggio.ReadLine & vbcrlf
Loop
Messaggio.Close 'Chiude il file contenente il messaggio
'Controllo validità dati. Control of e-mail address
'Se l'indirizzo del mittente non è una e-mail passa al prossimo messaggio.
if instr(1,EmailDestinatario, "@")>1 and instr(1,EmailDestinatario,".")>1
then
'Invia il messaggio. Sends the message
Set objMSG = objOL.CreateItem(0) 'Crea nuovo messaggio. Creates
new message.
With objMSG
.Subject = Oggetto
.To = EmailDestinatario
.Body = Body
.Send
End With
ContaMail = ContaMail +1 'Conta messaggi inviati. Counts messages
sent.
end if ' e-mail?
end if ' TXT?
Next 'File
Report = "Files: " & Messaggi.count & chr(13)
report = report & "Messaggi e-mail: " & ContaMail & chr(13)
report = report & "Fine Programma"
msgbox report ,,"Outlook Send Mail by Cenati Giovanni"
--
Giovanni Cenati (Aosta, Italy)
Write to user "nnever" and domain "@katamail.com" Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146827
Wscript
There is a way to call a WScript.Shell object into an html page?
Thanks. Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146826
Problem with the scriptomatic tool
If I am execute the Scriptomatic tool I will get the Message
Line 143
Error: The procedure could not be continued due to the folgennden error:
80041001
Does someone know where it comes from and what to to to solve it ?
Windows Xp Prof SP1
Axel Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146812
Remove account from Administrators group via script
First, an apology. This is my first attempt at what I think (hope) may be a
cross-post. (I'm not that familiar with posting to newsgroups so please
don't flame me if I've done it incorrectly. I've tried posting to a single
newsgroup but haven't found the info I'm looking for... hence this first
attempt to post to multiple newsgroups at the same time. I understand this
is the 'proper' way to ask in various newsgroups, all at the same time,
rather than send the same query to individual newsgroups.)
Second - my problem...
Our cloned PC's include a 'Change Clone' script that lets our PC installers
change the IP address, subnet mask, gateway, computername and workgroup via
popup input boxes. So far, so good.
I need to add "remove the 'Windows User' account from the 'Administrators'
group' " to the "Change Clone" script. Up to now I've used AutoIt ('cos I
don't know any other way). It works but I realise it's a kludge.
Can anyone point me in the right direction, via a VBS/WMI (or whatever)
script, how I can remove a 'Windows User' account [Power User] from the
'Administrators' group and leave it as a Power User?
I've trawled the 'Google' group archives but can't find anything relevant
(we use Novell - not MS - so ADSI scripts aren't the answer).
PS - Is there a more appropriate newsgroup for queries about large-scale
setups and deployment than microsoft.public.windowsxp.setup_deployment?
I've seen so may queries re: individual users losing MS Product ID's, etc.
and wondered if there was a 'commercial/industrial/organisational' newsgroup
I would be better off following. I mean no disrespect to individual users
but some problems are different for larger-scale setups and deployment.
Any help would be greatly appreciated.
Rick Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146811
Modify this script please
I found this nifty dual explorer script:
<--Script Start-->
set shellApp = createobject("shell.application")
set shell = createobject("wscript.shell")
shellApp.MinimizeAll
shell.run "explorer.exe c:/"
shell.run "explorer.exe c:/winnt"
wscript.sleep 3000 '<== adjust as needed
shellApp.TileVertically
<--Script End-->
Author: Michael Harris
What I would like to do is modify it so that when this script
executes, it will check if two explorer's are already open. I will
only be using 2 explorers tiled vertically at any given time.
Basically, here's the rundown on the scripting logic that I would like
but not sure if WSH or VBS can do this (Hope someone can make sense of
it):
function dualexplorer
Minimze All
open two explorer.exe
tile vertically
end function
Set X = explorer.window.count
if X < 2 then
close all explorer.exe windows
call function dualexplorer
end if
if x = 2
minimize all
bring both explorer windows to front
tile vertically (in case is has been moved)
end if
if x > 2
close all explorer.exe windows
call function dualexplorer
end if Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146809
Html page running processes
From an html page I want make a Menu with 3 options by 3 anchor tags:
open a pdf file, run Notepad.exe or run Setup.exe.
Can I override the warning messagge appearing from the exe files?
Regards
Sandro Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146807
Using JScript from VBScript (most cruelly)
Just woondering whether anyone has done any significant experimentation with
using very simplistic wrapups of JScript objects to access them almost
directly from VBScript, like in the following WSF example.
If anyone has, are there any intriguing uses people have found for this
(other than making Mr. Hickman laugh, that is <g>)?
===============================================
<?xml version="1.0" encoding="ISO-8859-1" ?>
<job>
<script language="JScript"><![CDATA[
function jsArray(){return(new Array());};
function jsBoolean(){return(new Boolean());};
function jsDate(){return(new Date());};
function jsFunction(){return(new Function());};
function jsGlobal(){return(new Global());};
function jsMath(){return(new Math());};
function jsNumber(){return(new Number());};
function jsObject(){return(new Object());};
function jsRegExp(){return(new RegExp());};
function jsError(){return(new Error());};
function jsString(){return(new String());};
]]></script>
<script language="VBScript"><![CDATA[
Set a = jsArray()
for i = 1 to 10
WScript.Echo a.push(i)
next
do while a.length > 0
wscript.echo a.pop()
loop
]]></script>
</job> Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146806
Zipping Folders from Script
I'd like to be able zip a folder from script. I found this article:
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/scrguide/sas_fil_tbch.asp
This addresses "compressing folders to save disk space." Cool, but
not what I"m looking for. I want to take a folder, and generate a
single file with a "zip" extension.
Since I can right-click on a folder and say "Send to Compressed File,"
I have a feeling it's possible from code. For the record, I
investigated that icon in the SendTo folder, but I couldn't see
anything that would help me.
Deane Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146805
Access "Date Picture Taken" Property
Is there a way to use VBS to return the property that
appears in the 'My Pictures' folder? The property in
question is listed when you select 'details' and is
denoted in the column headers as "Date Picture Taken".
Thanks in advance,
Abe Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146795
Listbox asp .net
Hello, I am trying to create a list box in asp into which
I can load the values dynamically(The user will enter a
value and based on that the list box is populated). For
some reason it does not allow me to do this:
Listbox1.items.add
Is there another way to add values dynamically to a list
box using vbscript in asp?
Thanks,
Sean Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146771
compiled Vbscript
Do you know if is it possible to create a compiled file (.exe) from a
Vbscript or VBA code in order to do a little application? This program must
work on pc without VB or other programs installed?
Thanks
Sandro Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146758
HELP REQUIRED: Scripting.Dictionary - Library Not Registered
Hi!
I have downloaded an opensource e-store application called comersus
written is ASP and installed on IIS 5.0. When i call the main page, it
throws up an error -
Scripting.Dictionary....Library Not Registered
I scoured through usenet and tried out things posted there. What i did
so far -
1. Downloaded Microsoft Scripting Engine 5.6, installed - NO USE
2. Re-installed MSIE 6.0 - STILL DOESN't WORK
(I had earlier installed .NET framework and uninstalled as it made the
machine very slow) Also Scripting.FileSystemObject cannot be
created..same Error!
I would greatly appreciate your suggestions and comments to help me
rectify this problem.
Thanks,
Vijay. Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146753
Newbie question about MSGBOX
Hi all and thanks in advance for any pointers anyone could provide.
I am working on a script and I need user input for it.
Is it possible to make a msgbox popup and ask for option 1, option 2,
or option 3. Then give a response that simply says option has been
executed.
Thanks again.
Mike Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146744
Random Failures with InternetExplorer.Application Object
Here is a snippet of my code:
Set oIE = WScript.CreateObject("InternetExplorer.Application")
With oIE
.Left = 50
If Err Then MsgBox Err.Number & ": " & Err.description
.Top = 50
.Width = 690
.Height = 530
.Menubar = False
.Resizable = True
.Statusbar = False
.Toolbar = False
.Navigate("about:blank")
Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop
.Visible = True
End With
My original code did not include the If Err statement. On occasion,
this code would hang forever, and there was nothing I can do to make
it go away. I literally just wait for a while - two minutes, thirty
minutes, two hours... - and try my script again, and usually it works.
So I added the If ERR statement to try and solve this, as I have been
dealing with this for about two years now. It was working for a
while, but then I started getting the following error:
462: The remote server machine does not exist or is unavailable
If I hit Ok on the MsgBox, the script hangs forever, so I know this
error is being generated when my system is in the state that causes my
script to hang forever. I have two questions: 1) Why does this
sporadically happen, and, more importantly 2) What can I do to fix the
problem, other than waiting around for my computer to fix itself? I
have run into this problem on numerous machines on NT/2K/XP and
browsers 5.x-6.x, so it does not seem to be OS- or
IE-version-dependent. Please someone shed some light on this... Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146727
Script to import email address
Hi,
I need help. Can someone assist me on how I can write 2
script, know a site that someone already written, or point
to me a place of the sample script containing what I need?
Here is the story why I need this 2 script. First start, I
have Windows 2000 and Windows 2003 Domain running Active
Directory. Each Domain contains about 500 User accounts.
First script....
I have a file called emails.txt containing each user's
email address. I need a script where it will import
emails.txt to Windows Domain for each user. Of course, the
script will need to determine who email addresss belong to
which userid. After the script complete its task, the
email address should display in the General tab of each
account.
Second script....
I need a script where it will look into the field of when
the password will expire. The script will need to
determine how many days before the expiration. After
determine the days of expiration, then the script will
send an email notification to the rightful account owner
stating that there account will expire in this many days.
An example of the scenerio I am looking for.....
A script that will import emails.txt into the rightful
account under the General Tab. A script then determine
that the user still have 17 days left for the password
expiration before user need to change his/her password.
Then the script will email a notification to each
individual users that will expire in 17 days informing
them to change their password.
I apologize for asking too much. I hope someone can help
me on this matter. Thank you Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146713
Changing NIC Speed
Anyone have any ideas how I can change the speed on my NIC's with a script.
Thanks
Gavin... Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146711
executing excel macro
I have an an excel sheet that executes the macro by
opening the sheet.
Now I want to have it in vbscript and below is what I
have and it doesn't work. Any help would be appreciated.
Thanks
<SCRIPT LANGUAGE="VBScript">
Dim oXLS
'Start Excel object:
Set oXLS = CreateObject("Excel.Application")
'Make Excel visible:
oXls.Application.Visible = true
'Open a new sheet:
oXLS.Workbooks.Open "C:\scorecard macro.xls"
'//Close Excel:
oXLS.Application.Quit()
</script> Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146707
Visualize a boolean result (toggle) without msgbox ?
Hello dear VBscript experts,
I am programming a script which is launched from a freeware application
(click on a command button), and that application does not have a status bar
nor can it be programmed. I am looking for a way to signal to the user the
result of the script, which is a boolean state (ON / OFF), without using an
msgbox. Windows as such does not have a status bar, so I do not know what to
do. Does anyone have an idea ?
- Is there a part of the Windows desktop on which I can act through vbscript
? (event if it is a small item somewhere of which I can change the color for
example, which I could use as a red/green flag)
- Is it possible to program changing the cursor ?
- Is it possible to program the appearance of a tip text next to the cursor
?
Thank you in advance
Jean-Marie Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146699
IE proxy settings
How do I set IE proxy settings with a script?
Can anyone help me? Please!
/Jesper Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146698
Ignore Hyperlinks with Regular Expression?
I am developing a system that parses through a block of HTML and
replaces any predefined terms with links to their descriptions.
However, I do not want to insert a link on a term that is already a
hyperlink. How can I write a pattern that will ignore any term that
is a hyperlink in my block of HTML?
Here is some sample code of my application.
Set objExpression = New RegExp
objExpression.IgnoreCase = True
objExpression.Global = True
While not rsGlossary.EOF
objExpression.Pattern = "[^<]
sNewTerm = "<a href=""#"" title=""" & Replace (rsGlossary
"sTermDescription"),">","") & """ class=""handbookterm"">" &
ucase(rsGlossary("sTerm")) & "</a>"
sText = objExpression.Replace(sText,sNewTerm)
rsGlossary.MoveNext
Wend Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146697
Saving with the InternetExplorer.Application Object
I have a script that dumps information into an IE window. I wanted to
know if there is a way to send a "File, Save As" command when I am
finished sending data to the window. I would like to save the window
as an .htm document instead of writing the same data to a text file. Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146695
Printers via WMI (Michael Harris)
In a script you showed:
Set colPrinters = oWMIsvc.ExecQuery("Select * from Win32_Printer",,48)
I tried it in JavaScript and this worked:
var colPrinters = oWmiSvc.ExecQuery("Select * from Win32_Printer",
"WQL",0x10, null);
can you explain the 48 versus null bit, I couldn't understand the
namedValueSet stuff in the docs?
--
Joe Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146692
Uptime Computer
Hey,
How can I know what the UPTIME (time since last reboot) is of a computer?
Marc Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146685
Creating an WSH Object in VB
Hi Everyone
Sorry if this question is not 100% related to WSH/VBS
Could someone please tell me how to create an instance of and then
initialise a WSH Object
e.g FileSystemObject
I just cannot seem to do it
thanks in advance
Tony Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146684
Remote installation in Win2K domain.
Hi there,
I am able to set up installing software on a remote server in NT domain by:
(1) set "accept Null sessions" for a shared folder on an NT server hosting
the software.
(2) copy a batch file to local servers. The batch file does mapping network
driver to the shared folder and launching installation of the software
(3) create win32_process to start the batch file on each remote server from
my XP laptop.
It works well within the NT domain. I have a win2k domain and another three
NT domains. My questions are:
(1) In Windows 2000 domain, can I do the same thing without setting up
"Trusting Users and Computers for Delegation"
in MMC Active Directory Users and Computers? I tried and failed with the
idea.
(2) For the other three NT domains, can they share the software server since
there are two-way-trust between domains.
Does " impersonate" support multihop security between domains?
Thanks,
Wensi Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146660
800401f3 error: winsock, IIS 6.0
I don't know if this is the correct forum, but hopefully
if not someone can redirect me.
I'm migrating an Intranet from our NT 4.0 Server with IIS
4.0 to a Windows Server 2003 machine with IIS 6.0. I've
got almost all the wrinkles ironed out except this.
I connect from the web server to another machine (an
AS/400) using a TCP/IP socket, via the WinSock.dll. I'm
getting this error:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
The line of VBScript code that's failing is:
set toc = Server.CreateObject("VBWinsock.TCPIP")
This is exactly the same code that works on the old
machine. I've checked, and the winsock.dll is registered
on the server, and the anonymous user has read
permissions on every instance where the dll appears in
the registry.
I've searched through google and through Microsoft.com,
and can't seem to find a solution. Does anyone have any
suggestions?
Thanks in advance. Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146653
Office XP KB822036 script?
Does anybody have a script that will remotely install the Office XP Security
Patch: KB822036 and/or the Word 2002 Security Patch: KB824934 to W2K and XP
clients?
I'm looking for somethign similar to the one that MS provided for MS03-026
and MS03-039
' Patchinstall.vbs
' Patch installation script for MS03-026 and MS03-039
Thank You!
PS
"This post is MY opinion only." Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146652
NT or 2K
want to copy a file in a login script.
How do you script if NT copy this
or else if 2K copy this Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146649
Calling a variable name dynamically
This is probably an easy one for you experts out there...I am trying to
assign a value to a variable after selecting the right variable name based
on the values in a database query. I have about 200 variable names that I
need to populate so I was hoping to assign their values dynamically. I can't
seem to find the right syntax or method, but I am trying to do something
like this:
the variable format is: category_month_color
R("category") & "_" & R("month") & "_color = "#0000FF"
OR
R("category")_R("month")_color = "#0000FF"
I get invalid character errors. Here is a more complete example:
dim cat1_january_color
dim cat2_january_color
dim cat1_february_color
dim cat2_february_color
dim cat1_march_color
dim cat2_march_color
...etc.
SELECT status, category, month from products
While not R.EOF
If R("status") = "sold" Then
R("category") & "_" & R("month") & "_color = "#0000FF"
Else
R("category") & "_" & R("month") & "_color = "#CCBBFF"
End If
R.MoveNext
Wend
Thanks in advance for your time! : )
Ken Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146644
For each file ***HELP PLEASE***
Here is my script,
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\session.txt", ForReading)
strResponses = objTextFile.ReadAll
objTextFile.Close
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\autoexec.bat", ForAppending,
True)
number = 1
count_number = count_number + 1
objTextFile.WriteLine "set session" & count_number & " = " & strResponses
objTextFile.Close
next
What happens is whatever is written in session.txt will be written as a set
variable in the Autoexec, the problem is, it will only write the first one
with the "set session" & count_number & " = " & strResponses" then just
write out the rest without the Set Session etc. example of my Autoexec.Bat
as it was written,
set session1 = com001T5678
com001T5679
com001T5680
How can I write it so that, for every object in so and so write out "set
session" & count_number & " = " & strResponses"
I am not sure what the syntax is, someone please help, thanks!! Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146643
IIS Setup Guru Wannabe Question
Just a question that I keep forgetting to ask "off-topic" to others in the same
field of work or hobby...
Yes, I know this isn't a group specific question, but would like to know how
y'all setup yer IIS applications, whether it be a .Net Web Application, or an
older ASP X.X application.
Under IIS, you can add sites (if you have the right Server installed) as well as
add applications under each web site. Multiple web sites with multiple web
applications under each site. First off, here is what I have:
Microsoft Windows 2000 Advanced Server (2 machines, Production and Development).
IIS with all the neat little patches required to keep it healthy.... (microsoft
patches)
1 Web Site
Now, under the web site, we create a new application for each Intranet
application that we are developing or have developed. Is this how it *should* be
done? Or should it be that each Intranet application we create should have it's
own Web Site? I can see how that can become really expensive for all the
licensing on a per website basis but would like to know how it *should* be done
rather than how we have it working.
That's all :)
Thanks,
Mythran Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146638
Winsock ActiveX error?
I have the following in some IE client side vbscript trying to read the
clients own IP address.
strIP = CreateObject("MSWinsock.Winsock").LocalIP
Some PC's report an error as follows:
Error: ActiveX component can't create object: 'MSWinsock.Winsock'
Code: 800A01AD
Is this a security issue or something else?
thanks
LJB Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146627
Filtered XML
I am trying to use XML and XSL together with ASP. I have
the following ASP:
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load(Server.MapPath("articleIndex.xml"))
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xsl.async = false
xsl.load(Server.MapPath("xslTest.xsl"))
Response.Write(xml.transformNode(xml))
And the following XSL:
<?xml version="1.0"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<html>
<body>
<xsl:for-each select="articles/article">
<xsl:sort select="@newsDateSort" order="descending" />
<p>
<a>
<xsl:attribute name="href">
<xsl:value-of select="@prPath" />
</xsl:attribute>
<xsl:value-of select="@newsDate" /> - <xsl:value-
of select="headline" />
</a>
</p>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
I want to filter the XML - such as - "articles/article
[@component='someValue']" before calling or within the XSL
file. I have tried using many different methods but
nothing seems to work. I now that this must be easy.
What is the best way to do this?
Thank you Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146624
Generic Object
I have this code in jscript:
var oPars = new Object();
oPars.p1 = "value1";
oPars.p2 = "value2";
I then pass this object as an argument into a modal window and at the other end
I use the following to extract the parameter values
window.dialogArguments.p1
window.dialogArguments.p2
How do I do all of that using VBScript?
thanks - Brian Staff Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146622
identifying spyware
Hello-
We have thousands of windows computers in a domain and are looking at
purchasing spyware detection software. I kinda think that it would be better
to save the money and create a VB script that would check for the existance
of certain spyware, for example it would check each systems registry for the
existance of
HKLM\software\gator
and it would report back which systems in the domain have this registry key.
I'm interested in hearing others opinion on this. We can't use freeware so
our choices are either purchasing thousands of licenses for spyware
detection software, or creating scripts that can do the same.
Thanks,
PS
"This post is MY opinion only." Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146612
Import .REG file through Logon Script
Hello
I have exported a registry key into a .reg file. I now want to have the
file imported through a logon script to all my users. Does anybody know how
to do that through VB Script?
Thanks
Sal Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146611
Is Outlook Express scriptabel?
Like the subject says. I suspect it isn't, but thought I'd ask someone who
actually knows. Thanks in advance.
Jim Tag: W2K tool to disable (not delete) active directory machine accounts Tag: 146608
I need a COMMAND LINE tool to disable (and later delete)
machine accounts from Active Directory so that I can
script the whole ordeal. TIV, Dale
--
torgeir
Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of the 1328 page
Scripting Guide: http://www.microsoft.com/technet/scriptcenter