New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Buring DVD Failure, Cont... I am reposting this because of a concern that it won't be read as a part of another thread which is already a few days down the line. Alex, I appreciate your help and information very much. Further developments: I sussessfully burned that iso image with Nero 7 on the rig with 4GBs but then I decided out of curiosity to repeat it with the script. The burning failed. It seems I got a completely prestine, empty disk. In the task amnager I observer memory usage mounting slightly over 2Gbs but not as much as 2.65 Gbs that could be expected from the source iso file. I suspect there is another issue involved. Perhaps WMI cannot handle such big files no matter what. Nero 7 employed buffering which was evident from the fact that the memory usage never exceeded 800 Mbs as was apparent from a progress bar at the bottom. on this superfast quad it took about 3 min. Thus I've decided to close the issue as far as such huge files are concerned. I dont do any pictures or music. Data files is my only need. I am wondering if you have any experience in handling iso files via any .NET classes or even scripts. I do have Winimage.exe installed and it opened the disk file momentarily and displayed the tree directory but I want to examine other options. I've been looking for a chance to get a handle on iso files one way or another. Perhjaps you know of a web site where the complete file format is described in detail, metadata including. Many thanks. -- AlexB -- AlexB Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217485
  - 2
    - MapNetworkDrive not working during first logon Greetings All, I am having a problem with mapping network drives the very first time a user logs onto a computer while their profile is being created. For some reason, during the very first interactive logon when a new user logs onto a PC they do not get their network drives. Other parts of the logon script (vbscript) appear to be working correctly. I can test for group memberhip, display a pop-up message, write to a log file etc. just not map a drive. If I manually run the logon script again once the desktop is up then all of the drives map correctly and every time after that first logon the drives get mapped properly. I have tried explicitly specifying the value for bUpdateProfile instead of relying on the default, which should be false, as indicated here: http://msdn2.microsoft.com/en-us/library/8kst88h6(VS.85).aspx I have tried enabling userenv logs but I don't really know what to look for and I nothing jumped out as an obvious error. My environment is a Windows 2003 native mode domain, Windows XP Pro with SP2 on the destktops and the logon script is a vbscript that is specified on the Profile tab of the user account in active directory users and computers. Any thoughts or suggestions would be appreciated. Work arounds would be ok too. Perhaps if there is a way for the logon script to detect that a new profile is being created then I can take some other actions. Thanks in advance, Greg Brown Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217480
  - 3
    - Need a script to compare two files This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C8A9F3.D5EC7650 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hello, I am looking for a script to compare two files. Scan second file using the words from first file.=20 Extract the line that matches the word from second file I have a sample script that matches but I don't know how to extract the = line File1: tom peter joseph File2: 192.168.0.0, this is sql users, tom, testmachine 192.168.1.2, this is mysql users, john, testmachine2 192.168.0.0, this is sql users, joseph, testmachine5 192.168.0.0, this is sql users, maria, testmachine6 192.168.0.0, this is sql users, donald, testmachine7 Output: 192.168.0.0, this is sql users, tom, testmachine 192.168.0.0, this is sql users, joseph, testmachine5 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Here is the sample code: Const ForReading =3D 1 Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objFile1 =3D objFSO.OpenTextFile("C:\Audit\User_Info.txt", = ForReading) strAddresses =3D objFile1.ReadAll objFile1.Close Set objFile2 =3D objFSO.OpenTextFile("C:\Audit\User_First_Name.txt", = ForReading) Do Until objFile2.AtEndOfStream strCurrent =3D objFile2.ReadLine If InStr(strAddresses, strCurrent) <> 0 Then strNoAddress =3D strNoAddress & strCurrent & vbCrLf End If Loop objFile2.Close Wscript.Echo "Devices with no address: " & vbCrLf & strNoAddress Set objFile3 =3D objFSO.CreateTextFile("C:\Audit\User_New_Info.txt") objFile3.WriteLine strNoAddress objFile3.Close ------=_NextPart_000_0008_01C8A9F3.D5EC7650 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.3790.3959" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3D"Arial Narrow" size=3D2>Hello,</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>I am looking for a script to = compare two=20 files.</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>Scan second file using = the words from=20 first file. </FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>Extract the line that matches = the word=20 from second file</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>I have a sample script that = matches but I=20 don't know how to extract the line</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" = size=3D2><STRONG>File1:</STRONG></FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>tom</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>peter</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2>joseph</FONT></DIV> <DIV><FONT face=3D"Arial Narrow" size=3D2></FONT> </DIV> <DIV><FONT face=3D"Arial Narrow" = size=3D2><STRONG>File2:</STRONG></FONT></DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, tom,=20 testmachine</FONT></DIV> <DIV> <DIV><FONT face=3DArial size=3D2>192.168.1.2, this is mysql users, john, = testmachine2</FONT></DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, joseph, = testmachine5</FONT></DIV> <DIV> <DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, maria,=20 testmachine6</FONT></DIV> <DIV><FONT face=3DArial size=3D2> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users, donald, = testmachine7</FONT></DIV></FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2><STRONG>Output:</STRONG></FONT></DIV> <DIV><FONT face=3DArial size=3D2> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users,=20 <STRONG>tom</STRONG>, testmachine</FONT></DIV> <DIV> <DIV><FONT face=3DArial size=3D2>192.168.0.0, this is sql users,=20 <STRONG>joseph</STRONG>, testmachine5</FONT></DIV> <DIV> </DIV> <DIV>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++</DIV> <DIV>Here is the sample code:</DIV> <DIV>Const ForReading =3D 1</DIV> <DIV> </DIV> <DIV>Set objFSO =3D CreateObject("Scripting.FileSystemObject")<BR>Set = objFile1 =3D=20 objFSO.OpenTextFile("C:\Audit\User_Info.txt", ForReading)</DIV> <DIV> </DIV> <DIV>strAddresses =3D objFile1.ReadAll<BR>objFile1.Close</DIV> <DIV> </DIV> <DIV>Set objFile2 =3D = objFSO.OpenTextFile("C:\Audit\User_First_Name.txt",=20 ForReading)</DIV> <DIV> </DIV> <DIV>Do Until objFile2.AtEndOfStream<BR>    strCurrent = =3D=20 objFile2.ReadLine<BR>    If InStr(strAddresses, = strCurrent)=20 <> 0 Then<BR>        = strNoAddress =3D=20 strNoAddress & strCurrent & vbCrLf<BR>    End=20 If<BR>Loop</DIV> <DIV> </DIV> <DIV>objFile2.Close</DIV> <DIV> </DIV> <DIV>Wscript.Echo "Devices with no address: " & vbCrLf &=20 strNoAddress</DIV> <DIV> </DIV> <DIV>Set objFile3 =3D = objFSO.CreateTextFile("C:\Audit\User_New_Info.txt")</DIV> <DIV> </DIV> <DIV>objFile3.WriteLine=20 strNoAddress<BR>objFile3.Close</DIV></DIV></FONT></DIV></DIV></DIV></DIV>= </BODY></HTML> ------=_NextPart_000_0008_01C8A9F3.D5EC7650-- Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217471
  - 4
    - Re: Spam Pegasus (MVP) wrote: > References: <#YYHW8cqIHA.3508@TK2MSFTNGP03.phx.gbl> by creating a thread, you MAKE IT HARDER for the people who are supposed to be doing the spam removal. KNOCK IT OFF. Bob Classic VB MVP and professional spam fighter -- Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217469
  - 5
    - Logon Scripts for Dept. and Printers based on Groups and IP I have a script that was put together by a several different scripts and some reading I have done on scripting. Anyhow, I=92ve attached a script located below that will map department shares based on the users active directory group membership and connected printer(s) based on their IP address. The script works well until the IP address part. If anyone can help, that would be great. Feel free to modify it in any way that would make the script better! Thanks=85. '***************************************************************************= ********* ' Title: Logon Script ' Author: MikeTir ' Date: 4/23/08 ' This is a logon script used to map department shares, and printers. '***************************************************************************= ********* '***************************************************************************= ********* 'This section tells the script to ignore any errors. 'No errors will be displayed on the users computer '***************************************************************************= ********* On Error Resume Next '***************************************************************************= ********* 'This section declares the variables '***************************************************************************= ********* Dim objNetwork Dim strUNCPrinter1, strUNCPrinter2, strUNCPrinter3, strUNCPrinter4, strUNCPrinter5 Dim strUNCPrinter6, strUNCPrinter7, strUNCPrinter8, strUNCPrinter9, strUNCPrinter10 Dim strUNCPrinter11, strUNCPrinter12, strUNCPrinter13, strUNCPrinter14, strUNCPrinter15 Dim strUNCPrinter16, strUNCPrinter17, strUNCPrinter18, strUNCPrinter19, strUNCPrinter20 Dim strUNCPrinter21, strUNCPrinter22, strUNCPrinter23, strUNCPrinter24, strUNCPrinter25 Dim strUNCPrinter26, strUNCPrinter27 Dim CheckDrive Dim AlreadyConnected Dim intDrive Dim objUser, objAdapter, colAdapters, MyArray, objWMIService '***************************************************************************= ********* 'This section will determines the person logging into Active Directory '***************************************************************************= ********* Set objSysInfo =3D CreateObject("ADSystemInfo") Set objNetwork =3D CreateObject("Wscript.Network") strUserPath =3D "LDAP://" & objSysInfo.UserName Set objUser =3D GetObject(strUserPath) '***************************************************************************= ********* 'This section maps the variables to the printers '***************************************************************************= ********* strUNCPrinter1 =3D "\\printserver\7thColorMFP" strUNCPrinter2 =3D "\\printserver\7thMail" strUNCPrinter3 =3D "\\printserver\9thAnalytics" strUNCPrinter4 =3D "\\\printserver\9thAnalytics_old" strUNCPrinter5 =3D "\\printserver\9thColor" strUNCPrinter6 =3D "\\printserver\9thHRMFP" strUNCPrinter7 =3D "\\printserver\9thMail" strUNCPrinter8 =3D "\\printserver\10thDevMFP" strUNCPrinter9 =3D "\\printserver\10thSecurity" strUNCPrinter10 =3D "\\printserver\ACCTPRINT" strUNCPrinter11 =3D "\\printserver\BHodge" strUNCPrinter12 =3D "\\printserver\BUSDEV" strUNCPrinter13 =3D "\\printserver\CEO Print" strUNCPrinter14 =3D "\\printserver\CLientAdmin" strUNCPrinter15 =3D "\\printserver\CLIENTPRT" strUNCPrinter16 =3D "\\printserver\CONTRACT" strUNCPrinter17 =3D "\\printserver\CONTRACTS MFP" strUNCPrinter18 =3D "\\printserver\COPYROOM" strUNCPrinter19 =3D "\\printserver\DEVPRINT" strUNCPrinter20 =3D "\\printserver\DevPrint2" strUNCPrinter21 =3D "\\printserver\FrontDesk" strUNCPrinter22 =3D "\\printserver\HR_Printer_1" strUNCPrinter23 =3D "\\printserver\IT_Print" strUNCPrinter24 =3D "\\printserver\MarketCLR" strUNCPrinter25 =3D "\\printserver\PLOTTER" strUNCPrinter26 =3D "\\printserver\PROJECTPRT" strUNCPrinter27 =3D "\\printserver\MORSE Print" '***************************************************************************= ********* 'The script commands '***************************************************************************= ********* Set objShell =3D CreateObject("WScript.Shell") Set objNetwork =3D CreateObject("WScript.Network") Set CheckDrive =3D objNetwork.EnumNetworkDrives() '***************************************************************************= ********* 'Sets the computer time. '***************************************************************************= ********* objShell.Run "%COMSPEC% /c net time \\corpdc1 /set /y",0,TRUE '***************************************************************************= ********* 'Checks the users IP address. '***************************************************************************= ********* sIP =3D GetIP() 'Figure out 3rd octet iFirstDot =3D InStr(0,sIP,".") iSecondDot =3D InStr(iFirstDot+1,sIP,".") iThirdDot =3D InStr(iSecondDot+1,sIP,".") 'Assuming IP's 172.23.1.0, 172.23.2.0, 172.23.3.0.... If iThirdDot =3D 1 Then Floor7 If iThirdDot =3D 2 Then Floor9 If iThirdDot =3D 3 Then Floor10 End If Next '***************************************************************************= ********* 'Checks the security groups the employee belongs to. '***************************************************************************= ********* For Each strGroup in objUser.MemberOf strGroupPath =3D "LDAP://" & strGroup Set objGroup =3D GetObject(strGroupPath) strGroupName =3D objGroup.CN Next Select Case strGroupName '**************************************************************************= ********** 'The section excutes the command. '**************************************************************************= ********** Case "Domain Group" 'This is the Active Directory Security Group Name '**************************************************************************= **** 'This will map department shares and printers '**************************************************************************= **** objNetwork.MapNetworkDrive "P:", "\\server\procedures" objNetwork.MapNetworkDrive "S:", "\\server\scratch" objNetwork.MapNetworkDrive "U:", "\\server\users" objNetwork.MapNetworkDrive "T:", "\\server\tools" 'objNetwork.MapNetworkDrive "Q:", "\\server\users\" & objNetwork.UserName IF Floor7 Then objNetwork.AddWindowsPrinterConnection strUNCPrinter23 objNetwork.AddWindowsPrinterConnection strUNCPrinter1 End If IF Floor9 Then objNetwork.AddWindowsPrinterConnection strUNCPrinter5 objNetwork.AddWindowsPrinterConnection strUNCPrinter6 End If Case "Domain Group" 'This is the Active Directory Security Group Name '**************************************************************************= **** 'To use map drives base on security remove the ' from the line below '**************************************************************************= **** 'objNetwork.MapNetworkDrive "V:", "\\server\departments$\D-CommDocs" 'objNetwork.AddWindowsPrinterConnection strUNCPrinter26 'objNetwork.AddWindowsPrinterConnection strUNCPrinter27 'IF Floor7 Then 'objNetwork.AddWindowsPrinterConnection strUNCPrinter23 'objNetwork.AddWindowsPrinterConnection strUNCPrinter1 'End If 'IF Floor9 Then 'objNetwork.AddWindowsPrinterConnection strUNCPrinter5 'objNetwork.AddWindowsPrinterConnection strUNCPrinter6 'End If End Select Function GetIP() strComputer =3D "." Set objWMIService =3D GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set myObj =3D objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled =3D True") 'Go through the addresses For Each IPAddress in myObj If IPAddress.IPAddress(0) <> "0.0.0.0" Then LocalIP =3D IPAddress.IPAddress(0) Exit For End If Next GetIP =3D LocalIP End Function Sub MapPrinter(sUNC) Set oNet =3D WScript.CreateObject("WScript.Network") oNet.AddWindowsPrinterConnection sUNC oNet.SetDefaultPrinter sUNC End Sub Wscript.Quit Set objUser =3D Nothing Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217466
  - 6
    - VBScript Regexp Customer Account I have been struggling to find a way to do a regexp.replace in multiple files, if anyone can help? My company downloads a series of files daily. Each file is a single customer transsaction and contains a customer account number that is in the format of the letters "A14*CA" followed by a sixteen digit number on its own line. The customer account number needs to be adited so that the backoffice software that imports the files can read it, but the backoffice software only accepts a ten digit customer account number. So, I need to replace the sixteen digit number with a ten digit number, but the digits my company wants are characters 4-10 following the begining letters above. For example, the customer account line may read "A14*CA4290423634535002" and needs to be replaced with "A14*CA0423634535" and the file needs to be saved. This customer account information is on it's own line but the line number may vary. All customer transaction files are in the same folder. -David Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217462
  - 7
    - Poly Bags <a href="http://www.polybagsusa.com">Poly Bags</a>-Poly Bags USA represents manufacturers of polyethylene and related plastic bags and plastic products. The company serves paper and plastic packaging distributors and major manufacturing companies nationwide. *** Sent via Developersdex http://www.developersdex.com *** Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217459
  - 8
    - Excel (2007) Conditional Format via VBScript I had a macro in Excel with the a command to Add conditional formatting based on the check if a cells value begins with some predefined text. Selection.FormatConditions.Add _ Type:=xlTextString, String:="apple", TextOperator:=xlBeginsWith Now i will change from having an Excel file with a macro in it, to a VBScript with is creating the Excel file from scratch. Placing the code from the macro in the VBScript does't work. Does someone have an idea? -- MrWinelover... Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217451
  - 9
    - Safely check for reg key existence.. Hi, I need to safely check is a registry key exists, and if not, create it: aKey = HKLM/Software/MyApp/aPath psuedo code: if Exists aPath then s = aPath else Create reg key aPath := "C:\MyApp" end if What would this be in vbs..? rgds jake Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217447
  - 10
    - Identifying users with local admin rights? As subject really, I'm after the most efficient way of finding out as part of a users login script if they are a member of the Administrators or Power Users group on the machine they are logging in on? I expect the simplest way to report would be to output to a file called something like "Username is GroupName on MachineName.txt" Appreciate any tips on the leanest way of achieving this. Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217446
  - 11
    - if then statements I am having a problem with a statements: Const HKEY_LOCAL_MACHINE = &H80000002 Const ForReading = 1 Dim shell Set shell = CreateObject("WScript.shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("U:\Scripts\EPO\Inputfile.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.Readline Path = ("\\"& strComputer & "\C$\Program Files\Network Associates\Common Framework\FrameworkService.exe") Path1 = ("\\"& strComputer & "\c$\program files\McAfee\Common Framework\FrameworkService.exe") If path = "" Then WScript.Echo strComputer & ":" & " EPO File Version is " & objFSO.GetFileVersion (Path) ElseIf path1 = "" Then WScript.Echo strComputer & ":" & " EPO File Version is " & objFSO.GetFileVersion (Path1) Else WScript.Echo strComputer & ":" & " EPO is not installed" End If Loop objTextFile.Close When I run the script on my machine it goes to the last line even if I have a path on my machine. Maybe I am just confused Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217443
  - 12
    - multi thread scripting I want to read the registry different services check and more of 25000 computers. But this script is very slow. It runs 3 days long pffffff! I can copy and make more scripts of the same, but there is a easy way to fix this. Have anybody a script or example where i can more then 1 process cscript.exe can startup.( Multi-Threaded scripting ) I have see an example http://cwashington.netreach.net/depo/view.asp?Index=957&ScriptType=vbscript but i don`t no how. Can anybody help me. The example script is what i want to start is like this : Option Explicit ' // Constanten Const sDebug = 0 Const WaitOnReturn = True Const ForReading = 1 Const HKEY_LOCAL_MACHINE = &H80000002 ' // Initialiseren objecten Dim IntConnectionError Dim StrDomain Dim strComputer '///// Open the input file Dim oFSO, oTF, oShell Set oFSO = CreateObject("scripting.filesystemobject") Set oTF = oFSO.OpenTextFile("computers.txt",ForReading,True) Set oShell = CreateObject("Wscript.Shell") '////// read computer.txt Do While oTF.AtEndOfStream <> True IntConnectionError = 0 strComputer = oTF.ReadLine ' * Ping computer Dim objShell , objExec , strPingResults Dim objWMIService , colCompSystems , objCompSystem Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer) strPingResults = LCase(objExec.StdOut.ReadAll) If InStr(strPingResults, "reply from") Then wscript.echo "Computer: "&strComputer&" is Online." ' * Check RegisterKey ' Open ini file for input Dim fObj , aRs1 , strKeyPath , strValueName , oReg , strValue Dim sRegIniImport : sRegIniImport = "listregkey.ini" Set fObj = oFSO.OpenTextFile(sRegIniImport,ForReading, False) Do While fObj.AtEndOfLine <> True aRs1 = Split(fObj.Readline, ",", -1, 1) strKeyPath = aRs1(0) strValueName = aRs1(1) Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue wscript.echo "Registerkey: "&strValueName& " found in: " &strValue Loop '///// Else WScript.Echo VbCrLf & strComputer & " is NOT online" End If Loop Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217442
  - 13
    - Getting email address Hi, I need to retrieve the email address(abc@xyz.com) from AD based on first name and lastname. Actually i will be getting a excel file with firstname and a lastname of users and i have to fetch the corresponding email addresses and write back in the excel sheet. Could anyone help me with code? Thanks in advance Sumit Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217440
  - 14
    - ?? Converting CurrentDirectory to a String ?? Hi all, I have a snippet of code like this: fso.CreateTextFile(WScript.Shell.CurrentDirectory & "\blah" & ".xyz") I want to convert the thing in parentheses to a string. I want to do something like this: Dim somePath somePath = WScript.Shell.CurrentDirectory & "\blah" & ".xyz" But this doesn't work. I've tried using CStr() but that doesn't work either. Is there a way to make the darned thing a string? -- Tom Baxter Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217427
  - 15
    - Install Patches through vbscript I want to install the patches in folder "PatchRepository" through a vbscript. I would also like to get the error message of any patch which couldn't not be installed for any reason [ Not applicable or Base patch not installed or Incompatible Os Version etc.] If the exit code of the script is zero [assuming there are no errors in installation.] the same should be dumped onto a file. If any error, they should also be listed on the file along with the patch name that failed. Thank in advance for your help Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217426
  - 16
    - Network Logon HTA Script <html> <head> <title>Central Login</title> </head> <body onload="resize()"> <center> Please enter your login credentials below: <form name="loginform"> Username: <input type="text" name="user"><br> Password: <input type="password" name="pass"><br><br> <input type="button" name="login" value="Login" onclick="auth()"> </center> </body> <script language="vbscript"> Sub resize window.resizeTo 400,197 End Sub Function auth() dim user user = document.forms.loginform.user.value dim pass pass = document.forms.loginform.pass.value dim server server = "Central" dim server_unc server_unc = ("\\" & server) dim user_drive user_drive = "U:" dim users_folder users_folder = "Users" dim users_unc users_unc = (server_unc & "\" & users_folder) dim user_unc user_unc = (users_unc & "\" & user) dim docs_drive docs_drive = "Z:" dim docs_folder docs_folder = "Docs" dim docs_unc docs_unc = (server_unc & "\" & docs_folder) dim auth_command auth_command = ("net use " & server_unc & " " & "/user:" & user & " " & chr(34) & pass & chr(34)) dim user_drive_command user_drive_command = ("net use " & user_drive & " " & user_unc & " /persistent:no") dim docs_drive_command docs_drive_command = ("net use " & docs_drive & " " & docs_unc & " /persistent:no") Set WshShell = CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c " & auth_command WshShell.Run "cmd.exe /c " & user_drive_command WshShell.Run "cmd.exe /c " & docs_drive_command dim endmessage endmessage = ("Welcome, " & user & ". All login commands have been run.") msgbox endmessage window.close() End Function </script> </html> Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217424
  - 17
    - Network Logon HTA Script <html> <head> <title>Central Login</title> </head> <body onload="resize()"> <center> Please enter your login credentials below: <form name="loginform"> Username: <input type="text" name="user"><br> Password: <input type="password" name="pass"><br><br> <input type="button" name="login" value="Login" onclick="auth()"> </center> </body> <script language="vbscript"> Sub resize() window.resizeTo 400,197 End Sub Function auth() dim user user = document.forms.loginform.user.value dim pass pass = document.forms.loginform.pass.value dim server server = "Central" dim server_unc server_unc = ("\\" & server) dim user_drive user_drive = "U:" dim users_folder users_folder = "Users" dim users_unc users_unc = (server_unc & "\" & users_folder) dim user_unc user_unc = (users_unc & "\" & user) dim docs_drive docs_drive = "Z:" dim docs_folder docs_folder = "Docs" dim docs_unc docs_unc = (server_unc & "\" & docs_folder) dim auth_command auth_command = ("net use " & server_unc & " " & "/user:" & user & " " & chr(34) & pass & chr(34)) dim user_drive_command user_drive_command = ("net use " & user_drive & " " & user_unc & " /persistent:no") dim docs_drive_command docs_drive_command = ("net use " & docs_drive & " " & docs_unc & " /persistent:no") Set WshShell = CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c " & auth_command WshShell.Run "cmd.exe /c " & user_drive_command WshShell.Run "cmd.exe /c " & docs_drive_command dim endmessage endmessage = ("Welcome, " & user & ". All login commands have been run.") msgbox endmessage window.close() End Function </script> </html> Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217423
  - 18
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217421
  - 19
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217420
  - 20
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217419
  - 21
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217418
  - 22
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217417
  - 23
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217416
  - 24
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217415
  - 25
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217414
- Next
  - 1
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217413
  - 2
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217412
  - 3
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217411
  - 4
    - Vb Script Text Book Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217410
  - 5
    - Vb Script Text Book http://www.365x24live.com/vbscript/index.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html Java Script Text Book http://www.365x24live.com/JavaScript/INDEX.HTM Applied Cryptography http://www.365x24live.com/Applied%20Cryptography/ewtoc.html Vb Script Text Book http://www.365x24live.com/vbscript/index.html CGI Programming text book http://www.365x24live.com/CGI%20Programming%20Unleashed/index.htm Java Text Book http://www.365x24live.com/java/index.html Programmer's Guide Nokia WAP Server API 1 http://www.365x24live.com/nokia/1.html Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217409
  - 6
    - burning DVD failure Hi there, I just attempted to burn a DVD on my DELL GX-280 with 2Gb of RAM, 3.8Ghz CPU. I used a Wscript as such: Const adFileTypeBinary = 1 index = 1 strISOFile = "c:\users\Alex BB\dvd burn\en_sql_2005_dev_all_dvd.iso" Set objDiscMaster = CreateObject ( "IMAPI2.MsftDiscMaster2" ) Id = objDiscMaster.Item(index) Set objRecorder = CreateObject ( "IMAPI2.MsftDiscRecorder2" ) objRecorder.InitializeDiscRecorder(Id) Set objDataWriter = CreateObject ( "IMAPI2.MsftDiscFormat2Data" ) objDataWriter.Recorder = objRecorder objDatawriter.ClientName = "ISOTest1" Wscript.Echo "Writing to disc..." Set objStream = CreateObject ( "ADODB.Stream" ) objStream.Open objStream.Type = adFileTypeBinary objStream.LoadFromFile strISOFile If objDataWriter.NextWritableAddress = 0 Then objDataWriter.Write(objStream) Wscript.Echo "Done" Else Wscript.Echo "Cannot write to disc" End If I copied the script from this TechNet site (modifying the directory only): https://www.microsoft.com/technet/scriptcenter/topics/imapi/imapi2-2.mspx#EYH The burning began and while watching the process in the Task Manager I saw a huge increase in Memory (Working Set Memory, I think) up to 1.8Gb. Then after a few minutes an exception was thrown from WScript: Out of Memory. After I closed the msg window which was modal the memory consumption wound down slowly and the process was eventually shut down after about a minutes or so. My question is: why? I've burned DVDs before with Windows Media Player with no problem. I've burned some picture images on this machine and attempted to burn iso images but they all came out sort of hollow, although the eventual file size was close to what I expected the data did not seem to be there and I could not use the DVD to install the software. So, I've decided to use a script since I felt that it would give me a better handle on the process. Is it a known issue? Is it possible to improve the script? Are there other scripts out there that can do the same? Nore: the iso image I tried to burn is a MSSqlServer eveloper Edition. I am an MSDN Pro subscriber. Many thanks in advance. -- AlexB Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217392
  - 7
    - Script to Email attachment hangs on the AddAttachment statement Here is the snippet of code that is doing the Add Attachment: If attachfile = 1 then strattachment = strScriptFolder & "\" & strFileattachment Wscript.echo "Attachment: " & strattachment If objFSO.FileExists(strattachment) Then Wscript.echo "Attachment exists" objEmail.AddAttachment(strAttachment) Wscript.echo "Attachment added" End If End If This worked within the last 3 weeks. Some patch or other software was loaded and now when the script gets to the add attachment statement, it hangs and uses 50% of the processor. I have tried uninstalling all the patches I can find that have been loaded in the last month, but it still hangs. There is no error and nothing in the event logs? Has anyone else seen this problem? Thanks in advance, Chris -- No matter where you go, there you are... Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217380
  - 8
    - Display first 100 files of directory I am looking for a vbscript that will display the first 100 files in a directory that contains more than 100 files. Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217372
  - 9
    - AD Computer Accounts Hi there, Can anybody help me with this script. I wanna read the Logondate - Create date - Modified date and the path in activedirectory for computer accounts . But i want also see the disabled computer accounts, i don`t no how to start in this script. Also i want to see only the date and not the time.. Thank you very much for help Rob Option Explicit Const FOR_WRITING = 2 Const strDomain = "dc=Connectie,dc=Local" Dim strAge, objConnection, ObjCommand, ObjRecordSet Dim objOU, objDomain, Tel Dim strExit, strDN, strLastPwSet, intLastPwSet, dtmLastLogon, dtmDateDiff, strName Dim objConnect, strLogoncount, strWhenChanged, strWhenCreated, bDebug, objAD, i, objApp strAge = 0 '* Aanmaak tekstbestand Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject") Dim sLogFile : sLogFile = "output.txt" Dim oLogFile : Set oLogFile = oFSO.OpenTextFile (sLogFile,FOR_WRITING,true) Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider=ADsDSOObject;" Set ObjCommand = CreateObject("ADODB.Command") ObjCommand.ActiveConnection = objConnection 'ldap query ObjCommand.CommandText = _ "<LDAP://" & strDomain & ">;(&(objectClass=Computer)" & _ "(sAMAccountName=" & "*" & "));distinguishedName,name,logonCount,whenChanged,whenCreated,pwdlastset;subtree" Set ObjRecordSet = objCommand.Execute If ObjRecordSet.recordcount = 0 Then WScript.Echo "No Objects founds" WScript.Quit End If WScript.Echo " Computeraccounts in Domain " & strDomain & " Count : " & ObjRecordSet.recordcount Err.Clear Tel = 0 Do Until objRecordSet.EOF strExit = "" strDN = "" strLastPwSet = "" strLogoncount = "" strWhenChanged = "" strWhenCreated = "" strName = "" intLastPwSet = "" dtmLastLogon = "" dtmDateDiff = "" Do Until strExit = "Yes" strDN = ObjRecordSet.Fields("distinguishedName") strLastPwSet = ObjRecordSet.Fields("pwdlastset") strName = ObjRecordSet.Fields("Name") strLogoncount = ObjRecordSet.Fields("logonCount") strWhenChanged = ObjRecordSet.Fields("whenChanged") strWhenCreated = ObjRecordSet.Fields("whenCreated") dtmDateDiff = DateDiff("d", dtmlastlogon, Now) If dtmDateDiff >= cdbl(strAge) Then End If Dim strPt1, strPt2, strPt3 If Left (strDN, 3) = "CN=" Then strPt1 = instr(10, strDN, "=") strPt2 = instr(strPt1, strDN, ",") strPt3 = Mid(strDN, strPt1+1, strPt2+80) Else End If strExit = "Yes" Loop objRecordset.MoveNext SchrijfInLog strName & ";" & dtmLastLogon & ";" & strLogoncount & ";" & strWhenChanged & ";" & strWhenCreated & ";" & strPt3 Loop '//// Subs Sub SchrijfInLog(sText) oLogFile.WriteLine sText If bDebug Then WScript.echo sText End Sub objConnection.Close oLogFile.Close Set objConnection = Nothing Set ObjCommand = Nothing Set ObjRecordSet = Nothing Set objOU = Nothing Set oLogFile = Nothing Set oFSO = Nothing Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217367
  - 10
    - Verifying if file exists on href link Hi, I am running straight ASP and not ASP.NET. I have a page which lists a bunch of project numbers each with an href link to an Excel file whose name is project number.xls on the server. I want to check if the file exists, if it does enable the link else disable the link. I have the following code. <% dim strProj function findFile(strProj) Dim objFSO, objFolder Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("../busops/prog") For Each strProj in objFolder.Files If strFile.Name = strNumber Then findFile = strProj.Name Else findFile = null End If Next Set objFolder = Nothing Set objFSO = Nothing end function %> <% strProj = trim(oRsMOIE("ProjectNum")) if findFile(strProj) = null then %> <td colspan="2" align=center><a href="#"><%=oRs("ProjectNum")%></a></td> <% else %> <td colspan="2" align=center><a href="<%="MIP/" & trim(oRsMOIE("ProjectNum")) & ".xls"%>"><%=oRsMOIE("ProjectNum")%></a></td> <% end if %> I get an path not found error on the GetFolder line. Any help would be greatly appreciated. Is the fileExists only available for .NET? If so, how else I would check for the file? Is it because browse directory listing permission is not granted in IIS? If so, how else I can check if the file exists? I am not allowed to grant browse directory listing permission. Thanks much. Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217365
  - 11
    - Delete folders I am asking some help with a script. Delete the GTA folders olders then Yesterday, the folders begins with GTA. The folders GTA for today and Yesterday must not deleted. I have a beginning but this is not correct, can anybody help me. Sfolderdir = "c:\temp\GTA2345" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(sfolderdir) Wscript.Echo "Date created: " & objFolder.DateCreated If objFSO.FolderExists(Sfolderdir) Then objFSO.DeleteFolder(Sfolderdir & datupdatefolder) WScript.Echo Sfolderdir & " DELETED " Else WScript.Echo "Not DELETE." End If rob Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217364
  - 12
    - CDO send: Lost Connection Hi, I'm using the following to send email. It works fine if I attach a text file. However, if I attach a zip file, as shown, I get the following error on the send: "The transport lost its connection to the server." If I send the same attachment via the same server using Outlook, all is well. It only fails when sent using this script. The issue is not related to file size, it works with huge text files, but fails on tiny zip files. Suggestions gratefully received! 'Code begins here Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Something" objMessage.To = "someone@somewhere.co.uk" objMessage.From = "someone@somewhereelse.co.uk" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailhost.myisp.co.uk" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.AddAttachment "C:\attach.zip" objMessage.Send 'Code ends here Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217363
  - 13
    - Display SQL XML Column How do I display an SQL XML data type (column) within classic ASP? Thank you in advance for your assistance. Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217355
  - 14
    - WScript.Shell.run and string with new lines? Sorry for the repost. I'm trying to run a string that has linefeeds. The below code works if what comes back from the webservice is a single line, but if it's more than one line it chokes and does not perform any of the lines. Option Explicit Dim runwhat Dim oShell Dim soapClient set soapclient = CreateObject("MSSOAP.SoapClient") SoapClient.ClientProperty("ServerHTTPRequest") = True On Error Resume Next Call soapclient.mssoapinit("http://mycomputer/LoginScriptsWebService/ Service.asmx?wsdl") if err <> 0 then wscript.echo err.description end if runwhat=soapclient.LoginScript wscript.echo (runwhat) Set oShell = CreateObject("WScript.Shell") oShell.Run "%comspec% /c (" & runwhat & ")" My very simple webservice (vb.net) looks like this: Public Function LoginScript() As String Dim out As String out = "net use y: \\mycomputer\c$\jcp" out = out + vbNewLine + "net use x: \\mycomputer\c$\jcp" Return out End Function If I clip and paste the output from the vbscript and paste it back into DOS it takes the two commands with no problem. A hex review of the output show the line feeds %0A%0D as expected. Thanks for any help or information. Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217352
  - 15
    - Why Can't You Set the PageFile on Server 2008 using VBScript and W Ok, so this is a bit of a wierd one. During our automated build of Windows Server 2008, one of the options we would like to set is the size of the Page File. Because we have servers with lots of RAM and often not large system drives we like to set them manually, this also helps avoid page file fragmentation. In Server 2008, before you can set the page file manually, you need to disable the automatic management of the page file using the win32_ComputerSystem.AutomaticManagedPagefile property. When I set this property to false using either a PowerShell window or WMIC from the command-line it works nicely. However, when I try to set this property using VBScript it fails to save the property. I have used the following script: ***START SCRIPT*** Set objWMIService = GetObject("winmgmts:{impersonationlevel=impersonate, (CreatePageFile)}!root\cimv2") For Each objCompSys In objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem") objCompSys.AutomaticManagedPagefile = False WScript.Echo objCompSys.AutomaticManagedPagefile Next ***END SCRIPT*** The script runs without errors AND outputs '0' to show that the setting has been changed. However, when I then re-run the script without setting the property, it outputs '-1' to show the setting is 'True'. I'm not aware of normally needing to make any kind of 'update' to WMI, it normally updates as you change a property, is there something that I'm doing wrong here? I've ruled out (I think) any kind of permissions issues by including the .Rename method in the script which successfully renamed the machine so I know the interface works. Any help would be appreciated Regards Brendan Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217346
  - 16
    - How to get the enumerator object for the ISA log content collection. set root = createobject("FPC.ROOT") Set isaArray = root.getcontainingarray Set isaLog = isaArray.logviewer.LogContentOnline Set isaEnums =isaLog._NewEnum Why this script says that "_NewEnum" includes invalid charactor? How can I get the enumerator object for the collection. Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217344
  - 17
    - File copy Hi, I hope someone can help me with this task. I need a script that can find a latest created subfolder within a certain folder and copy a file into it from another folder. Basically I need to copy a file into a folder but the folder name periodically gets changed by third party application. Thanks, Alex *** Sent via Developersdex http://www.developersdex.com *** Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217341
  - 18
    - Writing a Boolean Statement Parser/Engine - Need help I need to write a boolean search string parser/engine for a scripting project. In a perfect world: - A user could enter a properly formatted boolean search string that I could pass to the parser. For example, they could enter "((wallace OR walters) AND (fire AND truck)) ANDNOT (water OR wet OR foam)". - When I passed it to the parser, the parser would return some type of collection (array, collection, etc.). - I would iterate through the collection checking each term to see if it was in the search string and return a similar collection w/ a series of True/False values. - The engine would look at the values I returned against the initial search boolean, and return a collective True or False. Has anyone written or encountered any or all of the functionality? Would this be a good regular expression project? If so, does anyone have some samples they could share? Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217333
  - 19
    - Problem w/If Statement All, I'm writing a script that gets all installed software via the Registry (I need all installed software, not just apps installed via msi), but want to exclude certain items. Theonly thing I can't ssem to filter out is any Registry entry that has a ReleaseType. Here's my code: ... objRegEntry = objReg.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath & strSubKey, "ReleaseType", strReleaseType) 'MsgBox("objRegEntry: " & CStr(objRegEntry) & vbCrLf & _ ' "strReleaseType: " & strReleaseType & vbCrLf & _ ' "IsNull(strReleaseType): " & IsNull(strReleaseType) & vbCrLf & _ ' "TypeName(strReleaseType): " & TypeName(strReleaseType) & vbCrLf) If strDisplayName <> "" Then If IsNull(strReleaseType) And objRegEntry <> 0 Then If InStr(strDisplayName, "Hotfix") = 0 Then 'don't get service packs If InStr(strDisplayName, "Security Update") = 0 Then 'don't get hotfixes If InStr(strDisplayName, "Service Pack") = 0 Then 'don't get security updates If InStr(strDisplayName, "Update for ") = 0 Then 'don't get updates .Worksheets(objWorkstation).Range("A" & i).Value = strDisplayName objRegEntry = objReg.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath & strSubKey, "Publisher", strPublisher) If IsNull(strPublisher) Or strPublisher = "" Then .Worksheets(objWorkstation).Range("B" & i).Value = "N/A" Else .Worksheets(objWorkstation).Range("B" & i).Value = strPublisher End If ... It doesn't seem to acknowledge the line "If IsNull(strReleaseType) And objRegEntry <> 0 Then". I have the MsgBox code and have verified the values. When I run the script I get results like Microsoft Visual Studio 2005 Standard Edition - ENU Microsoft Corporation 8.0.50728 12/21/2007 Microsoft Visual Studio 2005 Standard Edition - ENU Microsoft Corporation N/A N/A After checking the Registry, I know that the 2nd entry is a service pack ("ReleaseType" = "Service Pack" or "Hotfix", etc.). I want to leave these out of my report. I can post/send all the code if someone would like more info. Thanks in advance! Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217326
  - 20
    - Need to fill up a web form by VB code. I am asking some help for a very precise reason. I have developed an application for my family that can establish a web call from our web account. My application is running under visual Basic 6.I need to fill up a web form by VB code on the internet telephony provider. The provider is www.mobivox.com and the link I am surfing to is http://www.mobivox.com/callme/?k=36e459afb9700c2b70d4ea09707c3181c011f192 The form needs to get three parameters: Country / Name / Telephone number. I believe I need a VBscript piece of code to do it within from my Visual Basic 6 application. A sub procedure that open the above link and post the needed parameters. I hope someone can solve it to me. Thanks so much Roobi Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217319
  - 21
    - Using delprof.exe from normal user's logon script Hi, Say I need \\myserver\netlogon\delprof.exe to be run at any login for computers in mydomain.net's OU=myworkshop What would a simple vbs logon script for the above situation look like? Will a normal domain user have enough priviledges to run delprof.exe in the above logon script or do domain logon scripts run under the system account? I any case I look for solutions to have delprof successfully do its work for OU=myworkshop computers. Thanks for any help on this regards jake Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217316
  - 22
    - Designer Gucci Belt Bag - Black 145851black Handbags, Replica, Fake Designer Gucci Belt Bag - Black 145851black Handbags, Replica, Fake Our Gucci Belt Bag - Black 145851black is a vibrant mix of style and pleasure, offering you exact copies of the original handbags. If you need a cool and most welcomed change to your style, a change you certainly deserve, choose one of the many bags ReplicasHandbag.com offers at a great price. Gucci Belt Bag - Black Link : http://www.replicashandbag.com/Gucci-145851black.html Brand : Gucci ( http://www.replicashandbag.com/Gucci-Handbags.html ) Model : 145851black Sale Price : $ 185.00 Gucci Belt Bag - Black Details : Pure black color Gucci belt bagFlap closure on front with silver buckleAdjustable black color strapZipper closure pocket insideComes with serial numbers, authenticity card, dust bag, and care booklet SIZE : 11.4" x 7.1" x 0.8" You may find the most affordable Designer Gucci Handbags on our website replicashandbag.com while high quality can be guaranteed. Our Replica Gucci Bags is made with special care to reach the level of an original one. Here you will find luxury items are no longer something you ever hesitate going for. To meet your expectation, we only provide Gucci Fake Handbags that is perfectly imitated, featuring the slight details of originals. All of our replica handbags are shipped via EMS to worldwide. Normally it takes 3days to prepare the fake bags you ordered and 5-10days to transmit depending on the different destination.We pay for the free shipping cost for total quantity over 20 pcs. The EMS tracking NO. will be sent by email when an order is shipped from our warehouse. No more other charges from replicashandbag.com such as the tax. If you have any other questions please check our other pages or feel free to email us by sales@replicashandbag.com. The Same Replica Gucci Handbags Series : Gucci Belt Bag - Black 92543black : http://www.replicashandbag.com/Gucci-92543black.html Gucci Belt Bag - Black 28566black : http://www.replicashandbag.com/Gucci-28566black.html Gucci Belt Bag - Blue 28566blue : http://www.replicashandbag.com/Gucci-28566blue.html Gucci Belt Bag - Coffee 28566coffee : http://www.replicashandbag.com/Gucci-28566coffee.html Gucci Belt Bag - Coffee 92543coffee : http://www.replicashandbag.com/Gucci-92543coffee.html Gucci Belt Bag - Khaki 28566khaki : http://www.replicashandbag.com/Gucci-28566khaki.html Gucci Belt Bag - Light Blue 28566light b : http://www.replicashandbag.com/Gucci-28566light-b.html Gucci Belt Bag - Pink 28566pink : http://www.replicashandbag.com/Gucci-28566pink.html Gucci Belt Bag - White 145851white : http://www.replicashandbag.com/Gucci-145851white.html Gucci Belt Bag -Monogram Red 28566red : http://www.replicashandbag.com/Gucci-28566red.html Designer Gucci Belt Bag - Black 145851black Handbags, Replica, Fake Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217313
  - 23
    - Need help in ending the madness Two things, 1. I need help in coming up with a script that can verify enforcement of smart cards by determining if the "Interactive logon: Require smart card" security option is enabled for each administrative account in the Enterprise. This would include schema admins, domain admins, users in the administrators group, etc. 2. I am looking for recommendations on how to learn VBscripting. Thank you in advance for your help! Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217297
  - 24
    - DNS and WINS update I am writing a script to update WINS and DNS entries on all servers in a file. I also want to output to an Excel file the success or failure. If a server is not pingable i want to output that to the spreadsheet and move on to the next server in the text file. This script works when i don't test to see if the server is pingable first. It will hang though if a server is not online. When i add the ping test it fails with an "Object required: 'objShell' " error in this line "Set objExecObject = objShell.Exec(strCommand)" see script below. Would appreciate any help in fixing the error in this script. Thank you. 'On Error Resume Next Const ForReading = 1 Const serversFilename = "Servers.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile(serversFilename, ForReading) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add Set objWb = objExcel.ActiveWorkbook x = 2 objExcel.Cells(1, 1) = "Server Name" objExcel.Cells(1, 2) = "DNS UPDATED" Do Until objTextFile.AtEndOfStream strComputer = objTextFile.ReadLine Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") If (strComputer <> "") Then strCommand ="%comspec% /c ping -n 3 -w 1000 " & strComputer Set objExecObject = objShell.Exec(strCommand) strText = objExecObject.StdOut.ReadAll() If Instr(strText, "Reply") > 0 Then For Each objNetCard in colNetCards strPrimaryServer = "192.168.2.100" strSecondaryServer = "192.168.2.200" objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer arrDNSServers = Array("192.168.1.100", "192.168.1.200") objNetCard.SetDNSServerSearchOrder(arrDNSServers) objExcel.Cells(x, 1) = strComputer objExcel.Cells(x, 2) = "Complete" x = x + 1 Next Else objExcel.Cells(x, 1) = strComputer objExcel.Cells(x, 2) = "Server Not reachable" x = x + 1 End if End if loop objTextFile.Close objWb.SaveAs "DNS.xls" Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217296
  - 25
    - Changing Computer and AD Description to logged in user? As subject really. Let's assume I have various OU's full of workstations, and at present all the Active Directory description fields are empty. Can anyone help me out with how I could update both the Active Directory Computer Description and the computer description in the properties of "My Computer" to something like "Joe Bloggs, Department X" where the username and department are those of the user who has logged on (assuming the users department is populated on his AD account). I'm looking on Google but as always there seem to be a million suggestions on the best way to do this. Thanks in advance. Tag: New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular Tag: 217293

New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular
Watch BW0080-50L - Cheapest Watch

New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular
Watch BW0080-50L Link :
http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Blue-Dial-Stainless-Steel-Rectangular-Watch-BW0080-50L-5736.html
Cheap Watches Home : http://www.watchesprice.net/
Lower Price Citizen Brands : http://www.watchesprice.net/Citizen-Watches.html

New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular
Watch BW0080-50L --- one of best selling watches, it is crafted in
high quality Watches.

New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular
Watch BW0080-50L Description:

DETAILS: Eco-Drive solar powered(No Batteries to Change) - solid
stainless steel case and bracelet - 180 day power reserve - charges in
sunlight or indoors - date display at 3 o'clock - scratch resistant
mineral crystal - silver-tone hands and roman numeral markers -
deployment buckle with push button - low charge indicator - time reset
advisory - case size: 28 * 30mm - 30 meters water resistant.

New Men's Citizen Eco-Drive Blue Dial Stainless Steel Rectangular
Watch BW0080-50L Details:

Watches-Price Sales Rank: #69542 in Watches

Brand: Citizen
Band material: solid stainless steel
Case material: solid stainless steel
Clasp type: deployment clasp with push button
Dial color: Blue
Movement type: Quartz
Water-resistant to 30 meters

The Same Citizen Series :

New Men's Citizen Eco-Drive Cortina Black Dial 2-Tone Watch
BW8194-50 :
http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Cortina-Black-Dial-2-Tone-Watch-BW8194-50-5737.html

New Men's Citizen Eco-drive Elektra Navy Dial Stainless Steel Watch
BL0090-63M :
http://www.watchesprice.net/New-Mens-Citizen-Eco-drive-Elektra-Navy-Dial-Stainless-Steel-Watch-BL0090-63M-5738.html

New Men's Citizen Eco-Drive Elektra White Dial Stainless Steel Watch
BL0090-71B :
http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Elektra-White-Dial-Stainless-Steel-Watch-BL0090-71B-5739.html

New Men's Citizen Eco-Drive Ivory Dial Magnified Date 2-Tone Watch
BM0744-54P :
http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Ivory-Dial-Magnified-Date-2-Tone-Watch-BM0744-54P-5740.html

New Men's Citizen Eco-Drive Riva Black Linen Dial Date Watch
BM0910-57E :
http://www.watchesprice.net/New-Mens-Citizen-Eco-Drive-Riva-Black-Linen-Dial-Date-Watch-BM0910-57E-5741.html

Sector 3253212115 :
http://www.watchesprice.net/Sector-3253212115-5742.html

Yes N200 :
http://www.watchesprice.net/Yes-N200-5743.html

Yes N201 :
http://www.watchesprice.net/Yes-N201-5744.html

Top