VBScript errorcode

[plaguelord]

Hey All

Can you please help find what i need to install to fix this error?

I get this error when I try to run a VBScript:

Line: 27

Char: 1

Error: Not Supported

Code: 8004100C

Source: SWbemServicesEx

N.B. The script runs OK on a non nlited version of xp

The script looks like this:

strComputer = "."                  
strfile = "c:\\test.txt"           
ventetid = 10                     
afsender = "xxx@gmail.com"
brugernavn = "xxx@gmail.com"
kode = "xxx"            
modtager = "yyy@gmail.com"        
emne = "xxx"     
smtpserver = "smtp.gmail.com"        
smtpport = 465                    
ssl = True                        
godkendelse = 1                   


Set objShell = CreateObject("Wscript.Shell")
Const ForReading = 1
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceModificationEvent WITHIN " & ventetid & " WHERE TargetInstance ISA 'CIM_DataFile' and TargetInstance.Name='" & strfile & "'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
intReturn = objShell.Popup("aendring opfanget, der sendes en mail",10, "sender post",0)
Set objFile = objFSO.OpenTextFile(strfile, ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Loop
objFile.Close
sendpost(strLine)
Loop

sub sendpost(tekst)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = emne
objMessage.From = """xxx"" <" & afsender & ">"
objMessage.To = Modtager
objMessage.TextBody = tekst
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = godkendelse
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = brugernavn
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = kode
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpport
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = ssl
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
end sub

The things that are removed from my xp edition:

The Following has been Removed From This OS...

Applications:

Briefcase

Games

Internet Games

Pinball

Screensavers

Drivers:

Asynchronous Transfer Mode (ATM)

Display Adapters

Display Adapters (old)

IBM PS/2 TrackPoint

IBM ThinkPad

ISDN

Logitech WingMan

Microsoft SideWinder

Modems

Multifunctional

Printers

Scanners

Serial Pen Tablet

Sony Jog Dial

Tape drives

Toshiba DVD decoder card

Hardware Support:

ATM Support

Brother Devices

Gravis Digital GamePort

Iomega Zip drive

Multi-port serial adapters

Ramdisk

Windows CE USB Host

Multimedia:

AOL ART Image Format Support

Images and Backgrounds

Intel Indeo codecs

Media Center

Mouse Cursors

Movie Maker

Music Samples

Old CDPlayer and Sound Recorder

Tablet PC

Windows Media Player

Network:

Client for Netware Networks

Communication tools

Comtrol Test Terminal Program

Connection Manager

FrontPage Extensions

H323 MSP

Internet Connection Wizard

Internet Information Services (IIS)

IP Conferencing

MSN Explorer

Netmeeting

Network Diagnostic

NWLink IPX/SPX/NetBIOS Protocol

Peer-to-Peer

Share Creation Wizard

Synchronization Manager

Vector Graphics Rendering (VML)

Web Folders

Windows Messenger

Operating System Options:

NET Framework

Administrative Templates

Administrator VB scripts

Blaster/Nachi removal tool

Color Schemes

Desktop Cleanup Wizard

Document Templates

DR Watson

Extra Fonts

FAT to NTFS converter

File and Settings Wizard

File System Encryption

Help and Support

IExpress Wizard

Manual Install and Upgrade

MS Agent

MS XML 2.0

Out of Box Experience (OOBE)

Private Character Editor

Remote Installation Services (RIS)

Search Assistant

Security Center

Service Pack Messages

Shell Media Handler

Symbolic Debugger (NTSD)

Tour

Web View

Services:

Application Layer Gateway

Error Reporting

Indexing Service

Messenger

Network DDE

Remote Registry

Removable Storage

Route Listening Service

RPC Locator

Service Advertising Protocol

Simple TCP/IP Services

Telnet

Directories:

DOCS

SUPPORT

VALUEADD

I have disabled and deleted the Classic Windows XP Install Screens with the info about XP and the blue Background.

You will just see a black background now and the install will look similar to 2000. This saves Space and gives more

info while installing.

The Minimum HD and RAM Requirements have been lifted. You can try and install this on whatever machine you like now.

High ISO Compression has been enabled to save space.

Patches:

TCP/IP Half-Open Connections = 1000 (Default 10)

UXTheme Patch (Allows Unsigned Themes to be applied to XP)

Windows System File Checker Disabled (SFC)

Tweaks:

Boot and Shutdown-Auto-End tasks immediately

Boot and Shutdown-Auto-Kill hung applications immediately

Boot and Shutdown-Auto-Kill hung services immediately

Boot and Shutdown-Ctrl-Alt-Del at logon-Disabled

Boot and Shutdown-Logon Page-Classic

Boot and Shutdown-Setup Prefetch-Cache-Disabled

Boot and Shutdown-Status Messages-Extended

Desktop-Desktop icons size-32

Desktop-Internet Explorer icon-Hide

Desktop-My Computer icon-Show

Desktop-My Documents icon-Show

Desktop-My Network Places icon-Hide

Desktop-Recycle Bin icon-Show

Explorer-Add (un)register libraries in Context Menu

Explorer-Add 'Command Prompt' to folder context menu

Explorer-Advanced Search: preconfigure options

Explorer-Associate additional file types with Notepad

Explorer-Change Windows Explorer folder view-Details

Explorer-Classic Control Panel

Explorer-Disable Accessibility keyboard shortcuts

Explorer-Disable Autorun

Explorer-Disable Prefix: Shortcut to

Explorer-Disable shortcut arrow

Explorer-Disable Web Files and Folders connection

Explorer-Display the contents of system folders

Explorer-Launch folder windows in a separate process

Explorer-Show Drive Letters in front of Drive Names

Explorer-Show extensions of known file-types

Explorer-Show hidden files and folders

Explorer-Show Map Network Drives buttons in Explorer bar

Explorer-Show Statusbar in all windows

Explorer-Show the full path in the Address Bar

Explorer-Show the full path in the Title Bar

Explorer-Use small icons in Explorer bar

Internet Explorer-Disable information bar when popup is blocked

Internet Explorer-Disable Market Place bookmark

Internet Explorer-Disable Media Player 6.4 created bookmarks

Internet Explorer-Disable Outlook Express link creation

Internet Explorer-Disable Password-Caching

Internet Explorer-Disable sound when popup is blocked

Internet Explorer-Enable Google URL-Search

Internet Explorer-Keep IE URL-History for-0 Days

Internet Explorer-Set Homepage-www.google.com

Internet Explorer-Set Internet Explorer to accept 10 connects at a time

Internet Explorer-Set popup-blocker to high

My Computer-Add Administrative Tools

My Computer-Add Control Panel

My Computer-Add Network Connections

My Computer-Add Registry Editor to Context Menu

My Computer-Add Scheduled Tasks

Network-Allow receiving Remote Assistance-Disable

Network-Disable restoring mapped network drives on logon

Performance-Disable Info Tips on Files and Folders

Performance-Disable Last accessed Timestamp on files

Performance-Disable Optimize harddisk when idle

Performance-Disable Tracking of Broken Shortcut Links

Performance-Disable WBEM logging

Performance-Do not cache thumbnails

Privacy-Disable Driver Update Internet prompt

Privacy-Disable File MRU-List

Privacy-Remove Alexa

Security-Always show Updates under Software

Security-Disable DCOM

Security-Disable Web Open With prompt

Security-Disable Windows Script Host (WSH)

Security-Re-Enable user:pass URLs

Start Menu-Add Administrative Tools menu

Start Menu-Clear most recently opened documents list on logoff

Start Menu-Control Panel-Display as a menu

Start Menu-Disable and remove Documents list from the Start Menu

Start Menu-Disable Highlight newly installed programs

Start Menu-Do not use Personalized Menus

Start Menu-My Computer-Display as a menu

Start Menu-My Documents-Display as a menu

Start Menu-My Music-Don't display this item

Start Menu-My Network Places-Don't display this item

Start Menu-My Pictures-Don't display this item

Start Menu-Network Connections-Display as Connect to menu

Start Menu-Printers and Faxes-Display as a menu

Start Menu-Reduce popup delay

Start Menu-Remove Search For People from Search

Start Menu-Remove Search the Internet from Search

Start Menu-Remove Set Program Access and Defaults

Start Menu-Remove Windows Catalog shortcut

Start Menu-Scroll Programs

Start Menu-Use small icons in Start Panel

Taskbar-Disable Balloon Tips

Taskbar-Disable Group similar Taskbar buttons

Taskbar-Disable Hide inactive icons

Taskbar-Disable Language-Bar

Taskbar-Hide Volume Control Icon in System Tray

Taskbar-Lock the Taskbar-Yes

Visual Effects-Animate windows when minimizing and maximizing-Disable

Visual Effects-Menu animation-Disable

Visual Effects-Menu shadows-Disable

Visual Effects-Menu style-Flat

Visual Effects-Smooth edges of screen fonts-Clear Type

Edited March 7, 2010 by Yzöwl
code tags addes

[cluberti]

First, welcome to the forums

Next, please try to post nLite-related questions in the nLite forums next time. In big red letters at the top of the XP forum where this was originally posted:

If you have questions about customizing Windows XP that are nLite-specific, please post them in the nLite forum, not here.

[Moved].

[johnhc]

plaguelord, you have removed Administrator VB scripts which will not bring the system VB scripts into the ISO. In the future, please attach large files, such as the Last Session (notice the "attach (not paste)" above in RED. Enjoy, John.

[plaguelord]

plaguelord, you have removed Administrator VB scripts which will not bring the system VB scripts into the ISO. In the future, please attach large files, such as the Last Session (notice the "attach (not paste)" above in RED. Enjoy, John.

Sorry, I will remember to attach in the future.

Can I install this administrator vbscript again, by downloading it from somewhere?

[johnhc]

Can I install this administrator vbscript again, by downloading it from somewhere?

Sorry, plaguelord, I do not know the answer. You can certainly try to copy all the .VBS files in your CDs I386 folder to your current System32 folder. I don't know if anything else needs to be done. I had a similar problem and I just copied the one file I needed to the System32 folder. Search your CDs I386 folder (I assume you are running 32 bit XP but since you did not show us the top of your Last Session, just guessing) for *.VB_, expand all the files and copy them into your System32 folder. I am running XP x64 and have about twenty odd files of *.VB_ in my AMD64 folder. Please let us know how it goes. Enjoy, John.

[plaguelord]

Can I install this administrator vbscript again, by downloading it from somewhere?

Sorry, plaguelord, I do not know the answer. You can certainly try to copy all the .VBS files in your CDs I386 folder to your current System32 folder. I don't know if anything else needs to be done. I had a similar problem and I just copied the one file I needed to the System32 folder. Search your CDs I386 folder (I assume you are running 32 bit XP but since you did not show us the top of your Last Session, just guessing) for *.VB_, expand all the files and copy them into your System32 folder. I am running XP x64 and have about twenty odd files of *.VB_ in my AMD64 folder. Please let us know how it goes. Enjoy, John.

Cant I just copypaste the missings from a regular versions folder?

[johnhc]

Cant I just copypaste the missings from a regular versions folder?

plaguelord, I don't know what you mean by a "regular version folder". I suspect if the files are the same as the original on the CD, it will be OK. Enjoy, John.