Terminate Process Problem with Option Explicit Breaks functionality
Been busy cleaning up some code and i noticed that one of my scripts
wasn't using Option Explicit. Now i am no guru but i figure it's always
a better option to use that setting. Anyway here is the Scripts
Intention and the problem will follow:
Script Purpose:
Kill Hung service whether local or remote.
Problem:
When I enable 'Use Option Explicit the script breaks and will no longer
kill a running service on the local computer.
Any advise on why option explicit breaks the code would be appreciated
Script:
'Option Explicit
'Dim strServerName,strComputerName,strServiceName,strWQL
KillService "usa-jlynch","Google Updater Service"
'#######################################################################
#######
' KillService -Kills service by matching Service to ProcessID to then
Terminate
'
'example:
' KillProcess "usa-jlynch","Ad-Aware 2007 Service"
' **Problem with Option Explicit, if turned on Local Services will not
be killed
'#######################################################################
#######
Function KillService(strServername,strServiceName)
Dim objItem, objService, objProcess,strServiceList,strProcessKill
Dim
colListOfServices,colProcessList,strQuery,strServiceProcessID,strProcess
Name, intRC
strQuery="SELECT * FROM Win32_Service WHERE DisplayName = '" &
strServiceName & "'"
On Error Resume Next
Set colListOfServices= objWMI(strServerName,strQuery)
If err.number=0 Then
err.clear
For Each objService in colListOfServices
strServiceProcessID = objService.ProcessId
Next
Wscript.Echo "The Process ID for "&strServiceName&" is :
"&strServiceProcessID
If strServiceProcessID>0 Then
'now to do the termination of the service's matching process
strQuery = "Select * from Win32_Process Where ProcessID= '" &
strServiceProcessID & "'" 'define WMI query
Set colProcessList=objWMI(strServerName, strQuery)'retrieve WMI
collection by calling the objWMI function
'wscript.echo err.number
If err.number=0 Then
For Each objWMIProcess In colProcessList
intRC = objWMIProcess.Terminate()
wscript.echo err.number
Next
Select Case intRC
Case 0 Wscript.Echo " Terminated"
Case 2 Wscript.Echo " Access denied"
Case 3 Wscript.Echo " Insufficient privilege"
Case 9 Wscript.Echo " Path not found"
Case 21 Wscript.Echo " Invalid parameter"
Case Else Wscript.Echo " Unable to terminate for undetermined
reason"
End Select
End If
Else
wscript.echo "Invalide Process ID or Process terminated without
intervention"
End If
End If
End Function
Function objWMI(strComputer, strWQL)
Dim wmiNS, objWMIService
wmiNS = "\root\cimv2"
On Error Resume Next
Set objWMIService=GetObject("winmgmts:" _
&"{impersonationLevel=impersonate}!\\" _
& strComputer & wmiNS)
objWMIService.Security_.ImpersonationLevel = 3
objWMIService.Security_.privileges.addasstring "SeDebugPrivilege",
True
Select Case Err.Number
Case 0
' Success
Set objWMI= objWMIService.ExecQuery(strWQL)
Case 70
' Run-time error '70': Permission denied
wscript.echo "Access Denied connecting to "&strComputer
'Set objWMI="NA"
Case 424
' The remote server machine does not exist or is unavailable
wscript.echo "The server " &UCase(strComputer)& " is unavailable or
does not exist!"
Case 462
' The remote server machine does not exist or is unavailable
wscript.echo "The server " &UCase(strComputer)& " is unavailable or
does not exist!"
Case Else
wscript.echo "Unknown error connecting to server
"&UCase(strComputer)
End Select
On Error GoTo 0
Set objWMIService= Nothing
End Function
*** Sent via Developersdex http://www.developersdex.com *** Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219096
VarType constant 10 -- vbError
In VBS there is a function CVErr
I works like so (using Excel 2003)
Sub Test()
Dim vTest As Variant
vTest = CVErr(0)
Debug.Print CStr(vTest) & vbTab & VarType(vTest) & vbTab &
TypeName(vTest)
End Sub
The output is:
Error 0 10 Error
Although the VarType constant is valid in VBScript, the function is
not.
Does this VarType ever occur in vbScript?
If so, when and how would I find it?
Cheers,
--Vorpal Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219093
WMI for Local Security Policy
I am trying to find the WMI or WMIs that will show the "Log on as a batch
job Properties" located in "User Rights Assignment".
The path of what I am looking for is:
1. At the taskbar, select Start|Programs|Administrative Tools|Local
Security Policy
2. Within Local Security Settings|Local Policies, select 'User Rights
Assignment'
3. On the right, double-click 'Log on as a service'
I have tried all of the WMI calls for security and COM, but have not had
any luck.
I'm trying to use it to determin which accounts and users are listed. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219082
wshremote not running script on remote computer
Hi all,
I am trying to run a simple script that opens the cmd shell on a remote
computer. I have two scripts; the first script asks for the computer to run
the script on and the script to run on that remote computer and the second
script is the script that is run and called by script 1. below is script 1;
----------------------------------------------------------------------------------------
Dim Controller, RemoteScript, strcomputer, text1, wshshell, oexec 'Variables
Set Controller = WScript.CreateObject("WSHController")
text1 = "You did not enter a computer name!"
Set WshShell = CreateObject("WScript.Shell")
strscriptloc = "C:\scripts\cmdexec.vbs"
'Ask the user which computer that they would like to run the app on
strcomputer = inputbox("Please enter the computer that you would like to
open the command prompt on.","Open a command box on which computer??")
'If the user didn't enter anything, then close the app gracefully
If strcomputer = "" Then
WScript.Echo Text1
wscript.quit
end if
'check connectivity to the computer before running execution xp / 2003 only
wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer
& "'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
wscript.echo "Computer is not responding on the network, unable to
continue"
wscript.quit
end if
Next
set RemoteScript = Controller.CreateScript(strscriptloc, strcomputer)
RemoteScript.Execute
Do While RemoteScript.Status <> 2
WScript.Sleep 100
Loop
wscript.disconnectobject remotescript
Sub remotescript_Error
Dim theError
Set theError = remotescript.Error
WScript.Echo "Error " & theError.Number & " - Line: " & theError.Line & ",
Char: " & theError.Character & vbCrLf & "Description: " & theError.Description
WScript.Quit -1
End Su
--------------------------------------------------------------------------------------------
The second script is as follows;
--------------------------------------------------------------------------------------------
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
wshrun = wshshell.run ("cmd /k")
--------------------------------------------------------------------------------------------
Pretty simple really. The script works on my local machine perfectly, but
when I execute it on a remote machine, nothing, no error message, just
completes and doesnt do a thing. I have added and re-added the remote reg_sz
registry value in the registry with a 1(when I try and run it without a
remote registry value, I get the active x can't create object error, so I
know that the registry value is working correctly). I have registered the
wscript object on the remote machine wscript -regserver, but still no luck,
not even an error?? I am a domain admin and I have all the rights to perform
this script execution on the remote machine also.
can anybody help??
Many thanks
--
Firewalker82 Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219078
Multiple IF Conditions
Is there a better way to handle multiple IF Conditions like
IF condition1 AND condition2 AND condition3 AND .... THEN
code
END IF
Now suppose i have 30 to 40 conditions to test, how do i handle this
snippet in an easier manner.
Guide
--------------------------
http://www.eecpindia.com
http://forex.eecpindia.com
*** Sent via Developersdex http://www.developersdex.com *** Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219072
Handling Events in a VBScript Class
I can handle events fired by an object as follows:
set objTest=WScript.CreateObject("TheObject.TheFunction","objTest_")
Sub objTest_TheEvent
'The event handler code.
End Sub
The above works quite nicely.
I want to do the following:
Class WrapperClass
Sub Class_Initialize
set objTest=WScript.CreateObject("TheObject.TheFunction","objTest_")
End Sub
Sub objTest_TheEvent
'The event handler code.
End Sub
End Class
When I try the second way, the event handler is never called. If I
move it outside the class, it DOES get called, surprisingly enough,
even though the object is declared and initialized inside the class.
Is there any way I can modify this so that the event handler is a
class member?
Thanks,
--Vorpal Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219071
[ann] another way to call api's from script (the PB way)
This is a multi-part message in MIME format.
--------------050203010807070203050001
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
I know what you're thinking. If microsoft wanted scripters to
be calling api's from script, then they would have built that
capability into the scripting engine. And besides, isn't there
already a DynaWrap utility for those who would dare to trespass
outside the boundaries of accepted scripting norms? True...
However, (for the sake of completeness?), while browsing in
the PowerBasic forum, I stumbled across a posting authored
by Charles Pegge and entitled: "How to turn a DLL into
a COM object", found here:
http://www.powerbasic.com/support/pbforums/showthread.php?s=69fab519eedc80eb6974c2c9ba8c881b&t=28421&highlight=comfordll
That sounded intriguing. And it was. What you get is some
powerbasic source code, a dll and a typelib. You register
the dll (and the typelib) with the provided bat file. Then
you run the script, which will interface with a "standard"
dll (also provided). It all works like "a charm" (any win98
users, see the postscript). The implication is that if
"COMforDLL" will work with a standard dll, then it will work
with any standard system dll as well.
What was intriguing to me was the notion that you could write
a com component in powerbasic, whereas the conventional wisdom
is that microsoft vb or c++ (and templates) are necessary.
The "basic" source code provided, (if you take the time to
read it), looks just like c++ code albeit written in basic.
In other words, it is more-or-less c++ code rendered into
the basic language. If nothing else, it is helpful to
understand if one eventually wished to go from vb to c++
in order to write some actX objects which don't render
very well into vb.
Here is the vbs test script provided by Pegge:
--- <code> ---
' VBscript .vbs, Author: Charles E V Pegge, 30 June 2006
set II = WScript.CreateObject("COMforDLL.Object","II_")
MyLibrary = II.LoadLibrary ( "ExampleHostDLL.dll" )
ReqReturnString = II.GetProcAddress ( MyLibrary,
"TestFunctionReturnString" )
CallMeBack = II.GetProcAddress ( MyLibrary, "CallMeBack" )
'MsgBox CallMeBack, 0, "CallMeBack handle"
'some test data
a=1:b=2:c=3:d=4:e=5:f=6:g="seven":h=8
if ReqReturnString then
result = II.fun ( ReqReturnString, a,b,c,"four",e,f,g,h )
MsgBox result, 0, "Result"
end if
II.RequestCallback(3) 'a COmforDLL test function
if CallMeBack then
II.EnableLibraryCallbacks (MyLibrary)
II.fun CallMeBack, 2
II.DisableLibraryCallbacks (MyLibrary)
end if
FreeLibrary = II.FreeLibrary (MyLibrary)
Set II = Nothing
sub II_Callback1()
Wscript.echo "Callback 1 is called"
end sub
sub II_Callback2(v1,v2,v3,v4)
Wscript.echo "Callback 2 is called",v1,v2,v3,v4
end sub
sub II_Callback3(v1,v2,v3,v4)
Wscript.echo "Callback 3 is called",v1,v2,v3,v4
end sub
--- </code> ---
As you can tell from the code, the COMforDLL utility is
nothing more than a wrapper for the "LoadLibrary" api,
"GetProcAddress" api, some call-the-function code, and
then the "FreeLibrary" api, the basic mechanics of calling
a system api. DynaWrap does a better job of hiding the
guts of the api call, but then COMforDLL does get
the job done.
cheers, jw
p.s. Note for the win98 crowd. My first attempt to
register the COMforDLL dll and typelib with the win98
regsvr32.exe failed. How revolting! I took the package
over to a nearby winXP system and it worked perfectly.
And so, I thought that maybe I could get COMforDLL to
work with win98 if I manually copied the winXP registry
entries and took them back to win98. So I exported the
entries from winXP and loaded them into the win98
registry. VOILA! Now the COMforDLL works successfully
on win98 too. If there are any win98 aficionados left,
then the reg file I used is attached.
--------------050203010807070203050001
Content-Type: text/plain;
name="COMforDLL.reg.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="COMforDLL.reg.txt"
REGEDIT4
; COMforDLL registry entries, jw 02July08
; The "COMforDLL" utility comes with an actX dll plus a typelib,
; and a batch file to register these two entities. But alas,
; couldn't get that to work (i.e., register itself) on win98se.
; And so, found an accomodating winXP system, and VOILA! it did
; work over there. And so, exported the registry entries, and
; then attempted to load them into the win98se registry as follows:
; ------------------------------------------------
[HKEY_CLASSES_ROOT\COMforDLL.Object]
@="Intermediary between DLL host and COM client"
[HKEY_CLASSES_ROOT\COMforDLL.Object\CLSID]
@="{044A4BF7-837E-459A-A9AA-C961B8888E80}"
[HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}]
@="Intermediary between DLL host and COM client"
[HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}\InprocServer32]
@="C:\\Program Files\\COMforDLL\\COMforDLL.dll"
"ThreadingModel"="both"
[HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}\ProgID]
@="COMforDLL.Object"
--------------050203010807070203050001-- Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219070
restart a process in XP ..
Hi there,
I'm not a programmer and would really appricate some help here. I need a
VB script to get the PID of a running process from the name and then
kill it and/or restart it. I read about taskkill, but that opens a DOS
box and requires the name of the process, the PID of which changes.
Don't ask me to study examples as when I learned BASIC we were still
using single letter variable names .. :)
$winkill "someProcess" .. kill it ...
$winkill -r "someProcess" .. kill it and restart ... Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219063
reading stderror stream
An anybody provide me with the answer to the following;
I am calling an wshshell.exec to execute a program. I can read the stdout
perfectly from this, but I would like to read the stderror so that it
provides more information as to what went wrong. I have tried playing around
with vbs and reading the stderr stream, but nothing seemes to be streamed
into this property. If I can get this to work then I would probably output
it to screen or a text file for further troubleshooting.
Thanks
--
Firewalker82 Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219059
Permission Denied in Vista with vbscript
Hi,
I am trying to put some files in Program Files folder in Vista machine using
VB script but I see "Permission Denied" with Error Number: 70
Could some put some light on this.
Thanks in advance, Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219056
"Permission Denied" error while copying files in Vista using VBScr
Hi,
I am trying to put some files in Program Files folder in Vista machine using
VB script but I see "Permission Denied" with Error Number: 70
Could some put some light on this.
Thanks in advance, Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219054
Reading filename from a file and deleting
I have a file "tmp.txt" in a format like
word0, c:\1.txt
word2, c:\2.txt
word4, c:\Copy of tmp1.txt
I need to delete all the files listed in 2nd column.
I tried this script.
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\tmp.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Wscript.Echo "File Name to be deleted : " & arrServiceList(1)
strFilePath = "arrServiceList(1)"
set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strFilePath)
Loop
It gives me Error on line "objFSO.DeleteFile(strFilePath)"
File Not found.
The files do exist in the specified path. If i hardcode the path in
the script, It works fine.
This is my first script.
Please help
Kuldeep Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219050
Copy file from server share to user profile
I am attempting to copy some custom Office Templates into user profiles when
they log on to the computer. I want it to look to see if the files exist and
if they don't then copy the files from a network share. Here is the Code I
have come up with.
path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%\Application Data\Microsoft\Templates\")
dim objFSO
set objFSO=CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("path") = False Then
objFSO.CopyFile "\\servername\stdapps\custemp\*.docx", path
End If
I am getting an error file not found on line 5 character 1 code 800A0035.
I've checked and templates are there. Any ideas?
Any Help would be greatly appreciated Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219041
Set AutoConfig for all users
This question was asked not too long ago, but the answer was not relevant for
my situation. I run a script locally on every machine that I work on to
verify standards are met on the machine such as specific versions of software
and windows settings such as SP2 firewall disabled.
I'm looking to have my script set the auto-config URL for all users on the
machine. Normally I ran gpedit manually and go to "User Configuration" -->
Windows Settings --> Internet Explorer Maintenance --> Connection -->
Automatic Browser Configuration and set the auto-config URL. I have automated
just about everything I want to do, but I can't seem to find a way to set
this setting with a script. Can this be accomplished with a script? I could
just adjust the setting in the registry for the current user, but multiple
users log onto these machines.
I have no access to the domain controllers so that's not an option.
Thanks. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219035
email .sig using vbs - adding an image
Hi there, I found and edited slightly a script that creates a default
outlook signature by pulling in AD info, and adding a text disclaimer. I
need to add an image
(company logo) but dont know how to go about it, please help!! Here is the
script so far;
Set objUser = CreateObject("WScript.Network")
userName = objUser.UserName
domainName = objUser.UserDomain
FUNCTION GetUserDN(BYVAL UN, BYVAL DN)
Set ObjTrans = CreateObject("NameTranslate")
objTrans.init 1, DN
objTrans.set 3, DN & "\" & UN
strUserDN = objTrans.Get(1)
GetUserDN = strUserDN
END FUNCTION
Set objLDAPUser = GetObject("LDAP://" & GetUserDN(userName,domainName))
'Prepare to create some files
Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile,
plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWsh = CreateObject("WScript.Shell")
appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%")
pathToCopyTo = appDataPath & "\Microsoft\Signatures\"
'Let's create the plain text signature
plainTextFilePath = pathToCopyTo & "Default.txt"
Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE)
plainTextFile.WriteLine("-- ")
plainTextFile.WriteLine(objLDAPUser.DisplayName)
plainTextFile.WriteLine(objLDAPUser.title)
plainTextFile.WriteLine(objLDAPUser.company)
plainTextFile.WriteLine("t: " & objLDAPUser.telephoneNumber)
plainTextFile.WriteLine("f: " & objLDAPUser.facsimileTelephoneNumber)
plainTextFile.Write("w: " & objLDAPUser.wWWHomePage)
plainTextFile.Write(" ")
plainTextFile.WriteLine("Streeter Marshall is regulated by the Solicitors
Regulation Authority. A list of the Partners is available from 74 High
Street, Croydon CR9 2UU. Information in this message is confidential and
may be legally privileged. If you are not the intended recipient, please
notify the sender, and please delete the message from your system
immediately.")
plainTextFile.Close
'Now we create the Rich Text signature
richTextFilePath = pathToCopyTo & "Default.rtf"
Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE)
richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0
calibri;}}")
richTextFile.WriteLine("\viewkind4\uc1\pard\f0\fs20 \par")
richTextFile.WriteLine ("\b")
richTextFile.WriteLine(objLDAPUser.DisplayName & "\par")
richTextFile.WriteLine ("\b0")
richTextFile.WriteLine(objLDAPUser.title & "\par")
richTextFile.WriteLine ("\line")
richTextFile.WriteLine
("________________________________________________________________________________________________________________________________________________")
richTextFile.WriteLine ("\line")
richTextFile.WriteLine ("\line")
richTextFile.WriteLine(objLDAPUser.company & "\par")
richTextFile.WriteLine (objLDAPUser.streetAddress & "\par")
richTextFile.WriteLine("t: " & objLDAPUser.telephoneNumber & " f: " &
objLDAPUser.facsimileTelephoneNumber & " dx: "& objLDAPUser.postalCode &
"\par")
richTextFile.WriteLine("w: " & objLDAPUser.wWWHomePage & "\par")
richTextFile.WriteLine ("\line")
richTextFile.WriteLine("Streeter Marshall is regulated by the Solicitors
Regulation Authority. A list of the Partners is available from 74 High
Street, Croydon CR9 2UU. Information in this message is confidential and
may be legally privileged. If you are not the intended recipient, please
notify the sender, and please delete the message from your system
immediately.")
richTextFile.Write("}")
richTextFile.Close
'And finally, the HTML signature
htmlFilePath = pathToCopyTo & "Default.htm"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0
Transitional//EN""
""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">")
htmlfile.WriteLine("<html xmlns=""http://www.w3.org/1999/xhtml"" >")
htmlfile.WriteLine("<body>")
htmlfile.WriteLine("<div style=""font-size:10pt; font-family:'Calibri';"">")
htmlfile.WriteLine("<div>-- </div>")
htmlfile.WriteLine("<div>" & objLDAPUser.DisplayName & "</div>")
htmlfile.WriteLine("<div>" & objLDAPUser.title & "</div>")
htmlfile.WriteLine("<div>" & objLDAPUser.company & "</div>")
htmlfile.WriteLine("<div>t: " & objLDAPUser.telephoneNumber & "</div>")
htmlfile.WriteLine("<div>f: " & objLDAPUser.facsimileTelephoneNumber &
"</div>")
htmlfile.WriteLine("<div>w: <a href=""http://" & objLDAPUser.wWWHomePage &
""">" & objLDAPUser.wWWHomePage & "</a></div>")
htmlfile.WriteLine("<h1>testing</h1>")
htmlfile.WriteLine("</div>")
htmlfile.WriteLine("</html>")
Thanks,
Al Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219028
Function error
Hello...a colleague of mine done a function in VBScript but the
function gives an error:
<%
function test_String(st)
l1 = len(st)
teste = true
if l1 >20 then
teste = false
end if
if InStr(st, "script", 1)>0 then
teste = false
end if
test_String = teste
end function
%>
Microsoft VBScript compilation error '800a03ea'
Syntax error
/menu_lateral2.asp, line 3
function test_String(st)
^
Can anyone help me? i dont understand about VBScript and the website
is done because of this... Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219026
HOT NEWS from Microsoft.........
It's really a hot news for everyone
http://polticsinfs.blogspot.com/ Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219021
vbscript arguments
Wrote a program to take arguments but really all I did was write a wrapper
around the program that I am passing aruguments to. So it can be 1 to 6
arguments and I just pass whats typed at command line. I can not assign each
argument.
I know with the script code below I can get count and print each argument to
console. What I need to be able to do is capture each argument and adding a
space between each one and store into varible.
For example,
MyVbscript.vbs c:\tmp 4 test.log 'In this scenerio three parameters are
passed which I will just pass to the program I am executing inside vbscript.
The code below would print out
c:\temp
4
test.log
I need the following
c:\temp 4 test.log ' need this string stored in a varibale.
Set objArgs = WScript.Arguments
WScript.Echo "Total number of arguments: " & WScript.Arguments.Count
for each sArgs in objArgs
sArgs = sArgs
WScript.Echo sArgs
Next Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219018
Terminate process issue
I have a very simple script that I'm testing out to include in a much
larger script, it is a very simple terminate process request for
DLLHOST.EXE or dllhst3g.exe.
The script runs with no errors but it just not terminate the process,
can anyone tell me what I'm missing here:
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = " 'dllhst3g.exe' "
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WScript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer
WScript.Quit Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219015
active directory / office username script
dear all, was wondering if someone could offer a helping-hand with
this script .
the aim of the script is to automatically populate the Username
registry value for Office 2003 such that it is prepopulated with data
from AD and does not prompt the user.
the AD query seems fine.
however i have an issue with the writing of the reg_binary data in
that would seem related to the data retrieved from AD, as if i hard-
wire text into the 'strusername' variable all is well.(using the Ascii
function).
first up i have found that i need to use the 'unicode' function of the
script to get any 'sensible' data in to the registry, which would seem
related to the storage of the data in AD.
when doing this the observed behaviour is for the script to enter
registry data that is nearly correct, but non-printable chars appear
in the User information dialog of the application.
when we look at the binary data using regedit we are missing "00 00"
from the hex data as compared to the data which yields correct user
information as viewed in the office applications.
I hope this makes sense. TIA
script content follows.(feel free to offer mods !....
On Error Resume Next
'this first section uses and we then , from which we derive the LDAP
query
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.TelephoneNumber
Const HKEY_CURRENT_USER = &H80000001
Const strPath = "Software\Microsoft\Office\11.0\Common\UserInfo"
Dim objNet, ObjRegistry, strUserName, uBinary, Return
Set objNet = CreateObject("WScript.NetWork")
Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv")
strUserName = lcase(objNet.UserName)
' uBinary = Str2BinA(strUserName)
uBinary = Str2BinU(strUserName)
WScript.Echo Join(uBinary)
Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, strPath,
"UserName", uBinary)
If Return = 0 Then
WScript.Echo "Binary value added successfully"
Else
' An error occurred
End If
'
Function Str2BinA(Src) ' Ascii version
Dim Tmp(), I, L
L = Len(Src): ReDim Tmp(L - 1)
For I = 1 To L: Tmp(I - 1) = Asc(Mid(Src, I)): Next
Str2BinA = Tmp
End Function
'
Function Str2BinU(Src) ' Unicode version
Dim Tmp(), I, L
L = LenB(Src): ReDim Tmp(L - 1)
For I = 1 To L: Tmp(I - 1) = AscB(MidB(Src, I)): Next
Str2BinU = Tmp
End Function Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219012
Number of pages in TIF image
Is there a way I can programatically using VB or VBS obtain the number of
pages in a multi-page TIFF image? Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219011
how to write recordset datas of vbscript into existing excel sheet
hi every one,
how to write recordset datas of vbscript into existing excel sheet.
its very urgent to me.
any one please help me.
regards,
karthik.R Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219001
Windows 2000 WMI issue
Can you guys tell me why this doesn't work under Windows 2000? This works
fine under Windows XP. strResults is always empty.
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strAppName = "Microsoft"
computername = "machinename"
Set objWMIService = GetObject("winmgmts:\\" & computername & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE
Name LIKE '%" & strAppName & "%'", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
strResults = strResults & VbCrLf & "Name: " & objItem.Name
strResults = strResults & VbCrLf & "Version: " & objItem.Version & VbCrLf
Next
MsgBox strResults Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 219000
Long paths
Ok, I have an access module which builds an index of directories in
the subtree of a user-selected directory/drive. Then, it goes through
those and builds another index of all the files in those directories.
I'm using the FileSystemObject just for clean code. Here's the
problem I'm hitting. I'm hitting the 260 character MAX_PATH limit.
The fso is reporting the correct number of files, but for the files
that exceed the limit, it acts like they're not even there. No errors
are raised, nothing.
I've tried this in VB6, but again nothing. I was told the kernel has
some API's I can use, but honestly, I am not that well versed in API
usage.
Bottom line, I need to be able to capture the long path of every
file. I can use the shortpath for my metadata extraction, etc, but
for the people who use the output of this, I do need to capture the
"windows explorer" name.
Here's an example of a filepath that's too far out: (This is an actual
file that I generated for testing)
X:\shared\username
\New_Folderaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaadfasdfasdfasdifuasdiofuyeasdkofuheasdkjfjheaskldjfheaskdfheaskdjfheaskldjfheaskdjfhasd
\adsfdkjfheaskdjfheasldkjfheasdklfehasdfkljashdlfjksdfh.txt Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218983
Left function is EXECQUERY
Good afternoon,
I have a VB Script which grabs the user name and specified printer at
terminal service logon. See below:
Set WSHNetwork = CreateObject("WScript.Network")
strUser = WSHNetwork.UserName
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'")
For Each objPrinter in colPrinters
objPrinter.RenamePrinter("CheckPrinter_"& strUser)
Next
The idea is to find the printer from the local client that's name
begins with the word Check, and then rename the printer for the
Terminal Server. I cannot get the LEFT Function to work for me,
however. The line in question is:
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'")
I am sure it is some minor syntax that I am overlooking. Can anyone
help? Thanks in advance. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218975
Read Windows XP\Network Places\Web Folders URLs to file
Hi,
I need to run a script that will read Windows XP 'Web Folders' URLs to
a file.
I have tried to locate Web Folders with no success.
I already used NETHOOD folder to get folder names but the info is
missing the full path:
IEx:
the SIte: http://SubSite.SharePoint.Site.com/Sites/SiteName/SubFolder
under 'Web Folders'
will be "SubFolder on SubSite.SharePoint.SIte.Com" under NETHOOD
How can i get the full path?
Keef. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218973
Manage ACCESS MDE compiled MDB+forms+code to append data from vbs
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hello from Spain... i would like to open from scripting mde files to
append data from csv using ado via vbs.
Thanks !!
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFIZrme6+HoRbsiJSkRAnb8AJ0cmwUccvpg3s99ClgTT1QRIKO6dQCfQOHV
DZpJbLZbtjxHt4f9znHTwjM=
=/4OX
-----END PGP SIGNATURE----- Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218971
substitute for subst
is it possible to have a script to map a drive letter to a directory without
using subst? Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218966
Regular Expression - Subnet
Dear All,
I have the following regular expression to check that a subnet has been
entereted correctly during a server prep script that I am writing. It works
fine if a number other than 0 is entered as the last octet however if i
enter more than one zero it accepts it as a valid subnet. i want it to
check that only one 0 has been entered as the last octet. And ideas on the
syntax. and if anyone can reccommend a couple of tutorial websites for
regular expressions and tutorials that would be great. Pardon the terrible
explanation.
strRegEx = "\d{1,3}\.\d{1,3}\.\d{1,3}\.0"
Cheers,
--
Ben Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218963
How can I manipulate Sharepoint Lists in VBScript?
Is there a simple way to read from and write to Sharepoint Lists in VBScript.
I tried to create an Access MDB with a link to a Sharepoint List and use ADO
to read it, but it gives an error...
Error Number: -2147467259
Could not find installable ISAM.
Is there a Sharepoint object for VBScript?
--
/* Don Reynolds */ Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218954
What folder does Outlook 2007 use for scripts?
I have a script (.vbs) which I wish to run upon receiving certain
messages. What is the default directory path in which to place the
script so that I may invoke it with a rule?
Thanks! Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218950
Help with Logon script error
Below is a logon script that I've basically put together from various
other examples. The intention of the script is to map a set of common
drives for my users. The script should check to see if a drive mapping
already exist, if so, then remove it, then map the drive letter back to
what I want. I kow/think that part of it is an attempt to handle
persistent drive letters in Explorer where even after disconnecting the
drive,it still appears in "My Computer"
When I run the script I get the following error:
Line: 11
Char: 1
Error: object required 'objFSO'
Can anyone help? I'm sure this is soemthing simple, but I have basically
no VBS knowlege
Thanks,
Mike
Here is the scrip:
=====================================================================================
Dim WshNet
'*****************
'MAP COMMON DRIVES
'*****************
'
'Note: U: (User Home directory) is mapped in the user profile in Active
Directory
'G: Drive - FS01\App
'************************
If (objFSO.DriveExists("G:" = True)) Then
objNetwork.RemoveNetworkDrive "G:",True,True
End If
If objFSO.DriveExists("G:") Then
Set objReg =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
objReg.DeleteKey HKCU, "Network\" & Left("G:", 1)
Set objReg = Nothing
End If
Set WshNet = WScript.CreateObject("WScript.Network")
WshNet.MapNetworkDrive "G:", "\\fs01\app"
Set WSHNet = Nothing
'S: Drive - Bea2\Users
'************************
If (objFSO.DriveExists("S:" = True)) Then
objNetwork.RemoveNetworkDrive "S:",True,True
End If
If objFSO.DriveExists("S:") Then
Set objReg =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
objReg.DeleteKey HKCU, "Network\" & Left("S:", 1)
Set objReg = Nothing
End If
Set WshNet = WScript.CreateObject("WScript.Network")
WshNet.MapNetworkDrive "S:", "\\bea2\users"
Set WSHNet = Nothing
'I: Drive - FS02\Img
'************************
If (objFSO.DriveExists("I:" = True)) Then
objNetwork.RemoveNetworkDrive "I:",True,True
End If
If objFSO.DriveExists("I:") Then
Set objReg =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
objReg.DeleteKey HKCU, "Network\" & Left("I:", 1)
Set objReg = Nothing
End If
Set WshNet = WScript.CreateObject("WScript.Network")
WshNet.MapNetworkDrive "I:", "\\fs02\img"
Set WSHNet = Nothing
==================================================================================================
End of Script Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218947
When do I have do define variables with "DIM" ?
Occasionally I saw VBS script where local variables were declared on top
with a statement like
DIM myvar
However most of my own vbs script run without such declaration.
When do I need them and when not?
Tony Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218946
Modifying HKCU or HKU subkey that has been restricted
Does anybody have an idea on how to edit the HKCU or HKU part of the
registry? Here is my problem. We have changed from outlook to Lotus
notes. And outlook is still trying to set itself as default mail
client. I know where the key is to turn off the check, but during the
configuration of Office the key has been restriced. I need to either
change the reg key or delete it all togeather. I have a script that
will make the changes to my own HKCU, but I am in the local admins
group. I need this to work for a normal user(non-admin). I have to
roll this out to about 400 computers. I hope I given enough
information.
Thank you for any input. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218941
Map network drive for user using VB/ASP.NET
Hello,
I'm trying to create an admin page that can run miscellaneous scripts for
our IT department. Currently, I'm trying to create a script that can map a
network drive for a user (e.g. a form where I can input \\path\folder, drive
letter, and domain\user). Is this possible? If so, can someone point me in
the right direction?
Thank you,
Brian Nicholson Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218939
SQL Query in VBScript
Hi,
I am trying to write a SQL query in vbs. I have been able to write a
script which queries a single table. My problem now is that I am not
sure how to structure the query for two tables. This is what I have
got so far:
----------------------------------------------------------------------------------------------
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objConnection.Open "DSN=Test;"
objRecordset.CursorLocation = adUseClient
objRecordset.Open "SELECT ComputerProperties.ComputerName,
ComputerProperties.ParentID, ComputerProperties.UserName,
ProductProperties.ParentID, ProductProperties.DatVer FROM
ComputerProperties, ProductProperties" , objConnection, adOpenStatic,
adLockOptimistic
strSearchCriteria = "ComputerProperties.ParentID =
ProductProperties.ParentID" objRecordSet.Find strSearchCriteria
If objRecordset.EOF Then
Wscript.Echo "Record cannot be found."
Else
wscript.echo objrecordset("ComputerProperties.ComputerName") & "
" & objrecordset("ProductProperties.DatVer")
End If
objRecordset.Close
objConnection.Close
-----------------------------------------------------------------------------
When I run this script I get the following message:
"Arguments are of the wrong type, are out of acceptable range, or are
in conflict with one another"
Essentially, I am trying to run this SQL Query:
Select ComputerName, DatVer, UserName
From ComputerProperties, ProductProperties
where Computer.Properties.ParentID = ProductProperties.ParentID
and ProductProperties.ProductCode = 'Viruscan8600'
and DatVer < '5315'
Order By ComputerName
Does anyone know how I might be able to do this?
Many thanks,
Ben. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218937
Running an Excel macro usning .vbs
Hi:
I've got a script that runs fine if I run it through the VB Editor, but
won't run when done through a script. I'm not sure where I'm going wrong
here, so if anyone has any ideas I'd appreciate it.
Sub openexcel()
Dim xlObj
Set xlObj = CreateObject("excel.application")
xlObj.Workbooks.Open "C:\Documents and Settings\****\My Documents\Import
Tool.xls"
xlObj.Run "Daily_Vol" 'This is the name of the macro w/in the Import Tool
file saved as a Module
xlObj.ActiveWorkbook.Saved = True
xlObj.ActiveWindow.Close
xlObj.Quit
Set xlObj = Nothing
End Sub
Thanks Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218936
vbs question
I have a VBS script that is scheduled to run through windows
scheduler. (Automation).
I am looking for a command to place it in the script to generate
verbose/debugging mode to see exactly the flow of the script.
thanks Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218928
ASP connection string to SQL2005
I am trying to connect to SQL2005 server, and the script is written in ASP.
I am trying to figure out why I am getting this error as below;
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Mid'
I currently have following connection string;
"Provider=SQLDB; User ID=fm_user; Password=fm_user; data
source=SQLFM,8701;persist security info=True;initial catalog=FM;"
I would greatly appreciate for any feedback.
Thanks. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218924
How to use a *.vbs
Hi.
I'm new to vbScript.
How do I run those *.vbs-files?
Thanks
Michi Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218908
MS Word Object - info
hello
I would like to find out more of the Word.Application methods and
properties, I'm trying to write a vb script to automate a document.
such as how to start on a new page etc, I have some basics, but need more on
the word application (I use visual studio 2005 and could not find anything in
there, but I'm still new to the vb scripting world)
Any good examples or papers on this object would be great.
Rgds
D
--
Dee Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218899
Bypass folders without file permissions
i have a vbs to count number of doc files, like this
for each folder in folders .... next
the script is completely ok to count files in the folders with file rights
permission.
however, i try to run it in other folders without file rights, like
c:\documents and settings\OtherUser.... it has a script error
then i use "on error resume next" to try to bypass the folder
the script can be finished. but the count calculation is completely wrong.
funny is that it return result of 1732 doc files but i don't have permission
to look into the folder.
my question is how can i bypass the folder which i don't have file
permission.
my script is supposed to loop through all the folders in a drive.
Thanks a lot.
tony Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218898
ActiveXPowerShell component
The ActiveXPoSH COM component released with PrimalScript 2007 Service
build 566 is now available as a free download from SAPIEN.com
For more details please review this document:
http://support.sapien.com/bulletins/ActiveXPoSH.pdf
ActiveXPoSH is free for personal and commercial use.
You can download the installer from here:
http://www.primalscript.com/Free_Tools/index.asp
Alexander Riedel
SAPIEN Technologies, Inc. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218895
Searching computers on the net, and finding which is online
This concerns a logon-script, which assigns drive letters to network
drives, like in
WshNetwork.MapNetworkDrive "E:", "\\server-x\Public"
The problem is that not all servers (rather peers) are not always
switched on, and trying to map drives to those computers results in
long wait times and eventually invalid drive mappings.
But the WshNetwork object offers me -- as far as I can find out --
no means to verify first, if the target computer is actually
reachable.
I would like to have a method which enumerates all computers which
are currently logged on in a domain, or searching computers on the LAN
generally, as the "Search computer" menu item in "Network
Neighbourhood" (or how that is called in english).
Is that possible and can anybody point me to some way to do that,
please?
Cheers,
L.W. Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218894
FSO display rootfolders
the following script displays folders under a folder
************
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objdrive = objFSO.getfolder("e:\temp")
for each folder in objdrive.subfolders
msgbox(folder)
next
****************
however, i wish to displays "rootfolders" under a "drive"
i cannot simply change the line 2 as follows
*******************
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objdrive = objFSO.getdrive("e:")
for each folder in objdrive.subfolders
msgbox(folder)
next
********************
how can i do it as FSO? Thanks a lot.
Tony Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218891
Script to import Avaya Informix database
Hello -
Please HELP! I need to use information from four tables which are from our
phone system (Avaya system; database type = Informix).
I've tried to import the info via ODBC (install disk given to us by Avaya,
but I need to do it on a Windows Server 2003 server and I am getting an
oledb_lt.lic (licensing) error that they cannot resolve.
In the end, I need to import this into a Sql Server database and schedule
daily imports.
Thought I could import it directly into Sql Server via BIDS and schedule it
through Agent, but to no avail.
I then tried to even get the info out in the form of a text file, but again
to no avail.
My next thought was perhaps a VB script may be the answer, but I don't know
how to do that.
Any help anyone can give me will be REALLY appreciated! Naturally, this is
a rush job . . .
--
Sheldon Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218888
CDO script causes Exchange Server to hang
Pardon me for making this so vague, but...
I have a script that uses CDO to access messages in a mailbox and delete
them based on age.
The script works fine in testing. It works some of the time in the
production environment, but intermittently causes the Exchange Server's
local delivery queue to stop processing, become unresponsive to a manual
reconnect, and require the server to be rebooted. The consequence not as
bad as it may sound. This server is used only for journaling copied
messages.
I know this sounds like an Exchange issue, but thought I would ask the
question here first to see if anyone had a similar issue. Is there some way
to throttle or "chunk" the amount of data transmitted in the session? This
might be similar to the ADO Recordset parameter that limits the number of
records returned in a query. There are typically a million messages in the
target folder... Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218887
Disable USD
Hi All,
Somebody have step-by-step procure what need do to disable USB drive and
ensure that system will not change the key registry when putted new USB pen
drive?
Thanks Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218886
waiting for function/process to finish...
Hi all,
I am looking for a simple way to wait for a process/function to
finish. I have tried a few combinations of code, however i keep
getting various errors and i am getting frustrated, hence the request
for help.
what i am doing is running a file copy registration function for dll
in vbscript that i need to wait for it to complete before i do the
next function/sub.
--- Example --
Sub Window_OnLoad
copyDLL("test.dll")
nextFunction()
etc
End Sub
Function copyDLL(oFile)
the function stuff
End Function
--- End Example ---
I would like to put some script in place that will wait until the
copyDLL function has completed before doing nextFunction() etc...
I appreciate your help in advance.
Cheers,
Darren Tag: LATEST SHOCKING HOT NEWS FROM MICROSOFT....... Tag: 218880
YES ITS REALLY HEART BREAKING NEWS FOR EVERYONE
http://polticsinfs.blogspot.com/