Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: System PC Machine Inventory users default domain information ip mac network card Service Pack Level
AddExtender("WWPRT32I.DLL") AddExtender("wwipg32i.dll") AddExtender("WWWSK34I.DLL") winplatform= WinMetrics(-4) TechFormat=`WWWDLGED,5.0` :Begin dir1="" mmodel="" cmodel="" cspeed="" ;*************************************************************************** ;**This section gets the current user id information and creates directory ;**with that user id as follows C:\USERID Backup and saves the doc ;**to the current directory ;*************************************************************************** curruser = Environment("username") DirMake("c:\%curruser% Backup") ;*************************************************************************** ;**Gets current operating system on local machine ;*************************************************************************** ver="" CheckReg=regexistVALUE(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[Version]") if CheckReg==0 then checkNT=regexistVALUE(@regmachine, "software\microsoft\windows nt\currentversion[CurrentVersion]") if checkNT==0 then message("Notice:", "Windows Version not detected!!!") exit else NTVersion=regqueryvalue(@regmachine, "software\microsoft\windows nt\currentversion[CurrentVersion]") if NTVersion=="5.1" then ver="Windows XP Pro" if NTVersion=="5.0" then ver="Windows 2000" if NTVersion=="4.0" then ver="WinNT NT 4.0" end if else WindowsVersion=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[Version]") if WindowsVersion=="Windows 95" then SubVersionNumber=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[SubVersionNumber]") if SubVersionNumber == "" then ver="Win950" message("Netware Client Upgrade", "%@CRLF%Service Pack 1 for Win95 needs installed,%@CRLF%please contact I.S. immediately.%@CRLF%") exit END IF if SubVersionNumber == "A" then ver="Windows 95A" if SubVersionNumber == "B" then ver="Windows 95B" if SubVersionNumber == "C" then ver="Windows 95C" END IF If WindowsVersion=="Windows 98" then VersionNumber=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[VersionNumber]") if VersionNumber == "4.10.1998" then ver="Win98" if VersionNumber == "4.10.2222" then ver="Win98SE" END IF If WindowsVersion == "Windows Millennium Edition" then ver="WinME" end if if ver=="" then message("Notice:", "%@CRLF%Unable to Determine OS!!!!!!%@CRLF%") exit end if ;--------------------------------------------------------------------------- ;*************************************************************************** ;**Gets the current users default Domain information ;*************************************************************************** regk=RegOpenkey(@RegMachine, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\") Domain = RegQueryValue(regk,"[DefaultDomainName]") RegCloseKey(regk) ;*************************************************************************** ;**Gets ip and mac information from current network card ;*************************************************************************** #DefineFunction GetTCPIPInfo_UDF(value) origdir = DirGet() OutputFile = StrCat (origdir, "IPCFG_TEMP.TXT") If WinVersion(4) == 4;WINNT RunHideWait(Environment('COMSPEC'), '/c IPCONFIG /ALL >"%OutputFile%"') Else RunHideWait('WINIPCFG', '/ALL /BATCH > "%OutputFile%"') Endif If !FileExist(OutputFile) MessageTxt = StrCat ("TCP/IP parameters can't be determined.", @CRLF) MessageTxt = StrCat (MessageTxt, @CRLF, "No data will be captured.", @CRLF) Message (Caption, MessageTxt) exit EndIf fs = Filesize (OutputFile) buf = BinaryAlloc(fs) BinaryRead(buf, OutputFile) ; ; Grab value from file ; lacptr = BinaryIndexEx(buf, 0, "Description", @FWDSCAN, 0) ptr = BinaryIndexEx(buf, lacptr, value, @FWDSCAN, 0) colonptr = BinaryIndexEx(buf, ptr, ":", @FWDSCAN, 0) CRLFptr = BinaryIndexEx(buf, ptr, @CRLF, @FWDSCAN, 0) Address = BinaryPeekStr(buf, colonptr+2, CRLFptr-colonptr-2) Address = StrTrim(Address) BinaryFree (buf) FileDelete(OutputFile) return Address #EndFunction value = "Physical Address" mac = GetTCPIPInfo_UDF(value) value = "IP Address" ip = GetTCPIPInfo_UDF(value) ;--------------------------------------------------------------------------------------------------- ;*************************************************************************** ;** Gets current Service Pack Level ;*************************************************************************** if RegExistValue(@REGMACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion[CSDVersion]") == @TRUE SP=RegQueryValue(@REGMACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion[CSDVersion]") If winplatform == 4 then goto Winnt ;-------------------------------------------------------------------------------------------------- :Winnt ;Windows NT Begin curruser = Environment("username") gosub nt40 :contnt ;Get Time & Date date=Timedate( ) ;Get PTN Number CPTN = Environment("computername") ;*************************************************************************** ;**Gets current application installed on local system ;*************************************************************************** ;Installed Programs ErrorMode(@OFF) winkey = RegOpenKey(@RegMachine, "SOFTWARE") ErrorMode(@CANCEL) If winkey == @False installed = "No Applications Installed" else installed=RegQueryKeys(winkey) RegCloseKey (winkey) End If tin=persistent tin2=printers apps2=installed gosub boardnt :boardnt WkstationFormat=`WWWDLGED,5.0` WkstationCaption=`Workstation Interview Checklist%tech%` WkstationX=-1 WkstationY=-1 WkstationWidth=360 WkstationHeight=228 WkstationNumControls=68 Wkstation01=`23,15,28,DEFAULT,EDITBOX,curruser,""` Wkstation02=`217,2,47,DEFAULT,EDITBOX,cptn1,""` Wkstation03=`48,32,54,17,ITEMBOX,modelc,DEFAULT` Wkstation04=`48,43,54,DEFAULT,EDITBOX,CPUPTN,""` Wkstation05=`48,88,54,DEFAULT,EDITBOX,MPTN,""` Wkstation06=`48,75,54,12,ITEMBOX,modelm,DEFAULT` Wkstation07=`48,59,54,12,ITEMBOX,speedc,DEFAULT` Wkstation08=`32,2,52,DEFAULT,EDITBOX,cuser,""` Wkstation09=`83,15,36,DEFAULT,EDITBOX,LANPWD,""` Wkstation10=`140,15,34,DEFAULT,EDITBOX,MAILID,""` Wkstation11=`203,15,36,DEFAULT,EDITBOX,MAILPWD,""` Wkstation12=`280,15,74,DEFAULT,EDITBOX,TECH,""` Wkstation13=`96,2,17,DEFAULT,EDITBOX,EXT,""` Wkstation14=`138,2,36,DEFAULT,EDITBOX,LOC,""` Wkstation15=`158,198,30,DEFAULT,PUSHBUTTON,DEFAULT,"&Save As",1` Wkstation16=`114,132,42,DEFAULT,STATICTEXT,DEFAULT,"Printers Installed"` Wkstation17=`176,3,42,DEFAULT,STATICTEXT,DEFAULT,"Computer Name:"` Wkstation18=`115,3,22,DEFAULT,STATICTEXT,DEFAULT,"Location:"` Wkstation19=`244,112,110,105,ITEMBOX,installed,DEFAULT` Wkstation20=`112,139,126,30,ITEMBOX,printers,DEFAULT` Wkstation21=`2,3,28,DEFAULT,STATICTEXT,DEFAULT,"User Name:"` Wkstation22=`53,17,30,DEFAULT,STATICTEXT,DEFAULT,"User PWD:"` Wkstation23=`2,17,20,DEFAULT,STATICTEXT,DEFAULT,"User ID: "` Wkstation24=`280,2,74,DEFAULT,EDITBOX,DATE,""` Wkstation25=`162,32,48,DEFAULT,EDITBOX,ver,""` Wkstation26=`114,162,84,DEFAULT,STATICTEXT,DEFAULT,"Persistent Network Connections"` Wkstation27=`2,46,36,DEFAULT,STATICTEXT,DEFAULT,"CPU PTN:"` Wkstation28=`2,90,36,DEFAULT,STATICTEXT,DEFAULT,"Monitor PTN"` Wkstation29=`86,3,10,DEFAULT,STATICTEXT,DEFAULT,"Ext:"` Wkstation30=`246,100,74,DEFAULT,STATICTEXT,DEFAULT,"Current Inalled Applications "` Wkstation31=`112,168,126,28,ITEMBOX,persistent,DEFAULT` Wkstation32=`120,36,40,DEFAULT,STATICTEXT,DEFAULT,"OS-Version:"` Wkstation33=`196,198,30,DEFAULT,PUSHBUTTON,DEFAULT,"&Exit",2` Wkstation34=`121,17,19,DEFAULT,STATICTEXT,DEFAULT,"Mail ID:"` Wkstation35=`176,17,26,DEFAULT,STATICTEXT,DEFAULT,"Mail PWD:"` Wkstation36=`263,17,17,DEFAULT,STATICTEXT,DEFAULT,"TECH:"` Wkstation37=`266,3,14,DEFAULT,STATICTEXT,DEFAULT,"Date:"` Wkstation38=`120,50,48,DEFAULT,STATICTEXT,DEFAULT,"Available Ram:"` Wkstation39=`162,47,28,DEFAULT,EDITBOX,RAM,""` Wkstation40=`120,64,48,DEFAULT,STATICTEXT,DEFAULT,"Hard Drive Size:"` Wkstation41=`162,62,28,DEFAULT,EDITBOX,csize,""` Wkstation42=`120,79,48,DEFAULT,STATICTEXT,DEFAULT,"Disk Free:"` Wkstation43=`162,77,28,DEFAULT,EDITBOX,Cavail,""` Wkstation44=`192,64,16,DEFAULT,STATICTEXT,DEFAULT,"GB"` Wkstation45=`192,80,16,DEFAULT,STATICTEXT,DEFAULT,"GB"` Wkstation46=`192,50,16,DEFAULT,STATICTEXT,DEFAULT,"MB"` Wkstation47=`2,105,60,DEFAULT,CHECKBOX,HCDROM,"System Has CDROM ",1` Wkstation48=`2,120,65,DEFAULT,CHECKBOX,NCDROM,"System Needs CDROM",1` Wkstation49=`2,135,60,DEFAULT,CHECKBOX,HMODEM,"System Has Modem ",1` Wkstation50=`2,150,60,DEFAULT,CHECKBOX,NMODEM,"System Needs Modem",1` Wkstation51=`3,163,102,DEFAULT,PUSHBUTTON,DEFAULT,"&Backup Users Profile 2K - XP",3` Wkstation52=`3,178,102,DEFAULT,PUSHBUTTON,DEFAULT,"&Backup Users Profile Windows NT 4.0",8` Wkstation53=`246,43,64,DEFAULT,STATICTEXT,DEFAULT,"Service Pack:"` Wkstation54=`280,41,68,DEFAULT,EDITBOX,SP,""` Wkstation55=`252,56,64,DEFAULT,STATICTEXT,DEFAULT,"IP Address:"` Wkstation56=`280,54,68,DEFAULT,EDITBOX,IP,""` Wkstation57=`246,69,64,DEFAULT,STATICTEXT,DEFAULT,"MAC Address:"` Wkstation58=`280,67,68,DEFAULT,EDITBOX,MAC,""` Wkstation59=`260,30,64,DEFAULT,STATICTEXT,DEFAULT,"Domain:"` Wkstation60=`280,28,68,DEFAULT,EDITBOX,DOMAIN,""` Wkstation61=`34,212,360,DEFAULT,EDITBOX,comment,""` Wkstation62=`4,216,30,DEFAULT,STATICTEXT,DEFAULT,"Comments:"` Wkstation63=`152,119,86,DEFAULT,EDITBOX,defprint,""` Wkstation64=`114,121,35,DEFAULT,STATICTEXT,DEFAULT,"Default Printer:"` Wkstation65=`120,198,30,DEFAULT,PUSHBUTTON,DEFAULT,"&Support",4` Wkstation66=`2,73,42,DEFAULT,PUSHBUTTON,DEFAULT,"Monitor Model",6` Wkstation67=`2,31,42,DEFAULT,PUSHBUTTON,DEFAULT,"Computer Model",5` Wkstation68=`2,57,42,DEFAULT,PUSHBUTTON,DEFAULT,"CPU Speed",7` ButtonPushed=Dialog("Wkstation") ;Application currently installed apps=installed cptn=cptn1 ;System Has CDROM If HCDROM == 1 then HCDROM1="System Has CDROM" End If ;System Needs CDROM If NCDROM == 1 then NCDROM1="System Needs CDROM" ;Else ; cpu="Do Not Upgrade CPU" End If ;System Has MODEM If HMODEM == 1 then HMODEM1="System Has Modem" ;Else ; mem="Do Not Upgrade Memory" End If ;System Needs MODEM If NMODEM == 1 then NMODEM1="System Needs Modem" ;Else ; CDROM="Doesnt Need CDROM" End If if buttonpushed == 1 then gosub case1 if buttonpushed == 2 then gosub case2 if buttonpushed == 3 then gosub case3 if buttonpushed == 4 then gosub case4 if buttonpushed == 5 then gosub case5 if buttonpushed == 6 then gosub case6 if buttonpushed == 7 then gosub case7 if buttonpushed == 8 then gosub case8 if buttonpushed == 9 then gosub case9 :nt40 ;Windows NT Hardware Information modelc = cmodel modelm = mmodel speedc=cspeed ;*************************************************************************** ;** This section gets the amount of memory installed on system ;*************************************************************************** ram=WinResources(11)/1024 ram=(ram/1024.00) cnt2=ram for dec2 = 0 to 0 Decimals(dec2) next ;*************************************************************************** ;** This section gets the current Hard Disk Size and free disk space ;*************************************************************************** Csize = Int (DiskSize("C")/1048576) Cavail = Int (DiskFree("C")/1048576) ;*************************************************************************** ;** This section gathers the current network mappings ;*************************************************************************** netkey=RegOpenKey(@Regcurrent, "Network") Network=RegQueryKeys(NetKey) RegCloseKey(NetKey) item = network num= itemcount(item, @tab) persistent = "" for i = 1 to num a = itemextract (i, item, @tab) regkey = RegOpenKey(@RegCurrent, "Network\%a%") ErrorMode(@OFF) it = RegQueryValue(regkey, "[RemotePath]") ErrorMode(@CANCEL) RegCloseKey(regkey) persistent = iteminsert("%a% = %it%", -1 ,persistent, @tab) next ;*************************************************************************** ;** This section gathers the current printers that or installed on the ;** current workstation ;*************************************************************************** regk = RegOpenKey(@RegCurrent, "Software\Microsoft\Windows NT\CurrentVersion\Windows") ErrorMode(@OFF) defprint = RegQueryValue(regk, "[Device]") ErrorMode(@CANCEL) If defprint == @False defprint = "No Printer Installed" Else defprint = RegQueryValue(regk, "[Device]") RegCloseKey(regk) End If printkey=RegOpenKey(@RegMachine, "SYSTEM\ControlSet001\Control\Print\Printers") printers=RegQueryKeys(printkey) RegCloseKey(printkey) ;*************************************************************************** ;** This section gets the current computer name information ;*************************************************************************** CPTN1 = Environment("computername") gosub contnt netkey=RegOpenKey(@RegCurrent, "Network\persistent") Network=RegQueryKeys(Netkey) RegCloseKey(Netkey) item=network ;*************************************************************************** ;** This section the default printer settings ;*************************************************************************** regk = RegOpenKey(@RegMachine, "Config\0001\system\Currentcontrolset\control\print\printers") ErrorMode(@OFF) defprint = RegQueryValue(regk,"[default]") ErrorMode(@CANCEL) If regk == @False defprint = "No Printer Installed" Else defprint = RegQueryValue(regk,"[default]") RegCloseKey(regk) End If printkey=RegOpenKey(@RegMachine, "System\CurrentControlSet\Control\Print\Printers") printers=RegQueryKeys(printkey) RegCloseKey(printkey) speedc=cspeed ;*************************************************************************** ;** This section saves your current document to the current user backup ;** directory C:\USERID Backup\USERID.DOC ;*************************************************************************** :case1 types="All Files|*.*|Text Files|*.txt|" saveas=AskFileName("SelectFile", "C:\%curruser% Backup\", types, "%curruser%.doc",0) ;Windows NT Report Section handle = FileOpen(saveas, "write") FileWrite(handle, "") FileWrite(handle, "==================================================================") FileWrite(handle, " Created by @RDL Good Luck ") FileWrite(handle, " Workstation Interview Checklist") FileWrite(handle, "==================================================================") FileWrite(handle, "") FileWrite(handle, "Date: %date%") FileWrite(handle, "Technician: %tech%") FileWrite(handle, "-------------------------------------------------------------------") FileWrite(handle, "") FileWrite(handle, "User Network Logon ID/LOC/EXT/ Information ") FileWrite(handle, "-------------------------------------------------------------------") FileWrite(handle, "") FileWrite(handle, "User Name: %cuser%") FileWrite(handle, "User ID: %curruser%") FileWrite(handle, "User Password: %lanpwd%") FileWrite(handle, "User EXT: %ext%") FileWrite(handle, "User Location: %loc%") FileWrite(handle, "User Mail ID: %mailid%") FileWrite(handle, "User Mail Password: %mailpwd%") FileWrite(handle, "==================================================================") FileWrite(handle, "") FileWrite(handle, "Computer Name: %cptn%") FileWrite(handle, "Computer Model: %cmodel% ") FileWrite(handle, "Computer PTN: %cpuptn%") FileWrite(handle, "CPU Speed: %cspeed%") FileWrite(handle, "Current Domain %Domain%") FileWrite(handle, "Service Pack %SP%") FileWrite(handle, "TCPIP Information %ip%") FileWrite(handle, "MAC Address %mac%") FileWrite(handle, "Monitor Model: %mmodel%") FileWrite(handle, "Monitor PTN: %mptn%") FileWrite(handle, "Operating System: %ver%") FileWrite(handle, "RAM Memory: %ram% MB") FileWrite(handle, "Hard Drive Size: %csize% GB") FileWrite(handle, "Avail Hard Drive: %Cavail% GB") FileWrite(handle, "Ststem Has CDROM: %HCDROM1%") FileWrite(handle, "System Needs CDROM: %NCDROM1%") FileWrite(handle, "System Has Modem: %HMODEM1%") FileWrite(handle, "System Needs Modem: %NMODEM1%") FileWrite(handle, "") ;*************************************************************************** ;** This section gathers the current applications that or installed ;*************************************************************************** FileWrite(handle, "==================================================================") FileWrite(handle, "Installed Applications") FileWrite(handle, "----------------------") FileWrite(handle, "") apps = itemcount(apps2, @tab) for h = 1 to apps app1 = itemextract(h, apps2, @tab) If app1 == " " app1="No Applications Installed" FileWrite(handle, app1) else FileWrite(handle, app1) End If next ;*************************************************************************** ;** This section writes the current mapping information to your document ;*************************************************************************** FileWrite(handle, "") FileWrite(handle, "==================================================================") FileWrite(handle, "Permanent Drive Mappings ") FileWrite(handle, "-------------------------") FileWrite(handle, "") m = itemcount(tin, @tab) for j = 1 to m mapping = itemextract(j, tin, @tab) FileWrite(handle, mapping) next ;*************************************************************************** ;** This section writes the printer information to you your current document ;*************************************************************************** FileWrite(handle, "") FileWrite(handle, "==================================================================") FileWrite(handle, "Printers Installed") FileWrite(handle, "------------------") FileWrite(handle, "") FileWrite(handle, "Default Printer: %defprint%") FileWrite(handle, "") p = itemcount(tin2, @tab) for j = 1 to p printers = itemextract(j, tin2, @tab) FileWrite(handle, printers) next ;*************************************************************************** ;** This section is for placeing you comments about the workstation ;*************************************************************************** FileWrite(handle, "") FileWrite(handle, "==================================================================") FileWrite(handle, "Comments: %comment%") FileWrite(handle, "-------------------") ;*************************************************************************** ;** This section goes to the exit section and closes the script ;*************************************************************************** :case2 goto exit ;*************************************************************************** ;** This section will backup the current user profile to the following ;** location C:\XXXID\Backup as an achrive with the current users ;** XXXID ;*************************************************************************** :case3 ;Contents of Win2k.lst ; ;Windows 2000 and XP only"" ; ;This script will backup the ;current users profile under ;c:\Documents and Settings\userid ;and copy it to the following directory as ;C:\userid backup\userid_profile.ZIP ; ; ;1: ;2: ;3: ;4: ;5: ;6: ;7: ;8: A=AskFileText("Windows 2000 and XP Profile Backup ", "Win2k.lst", @unsorted, @single) AddExtender("WWZIP34I.DLL") AddExtender("WWZIP32I.DLL") FileAttrSet("C:\Documents and Settings\%curruser%\*.*", "rash") curruser = Environment("username") DirMake("c:\%curruser% Backup") TimeDelay (1) DirChange("C:\Documents and Settings\%curruser%") zZipFiles("RS9", "C:\%curruser% Backup\%curruser%_profile.ZIP", "*.*", "") If winplatform == 4 then gosub nt40 ;*************************************************************************** ;** This section executes the support.lst files ;*************************************************************************** :Case4 ;contents of support.lst ;your support information can go here ; ; ; ? support numbers ; _ __ _ ; (.) (.) ; \ .. / ; ooO -- Ooo ; /---------------------\ ;1: ;2: ;3: ;4: ;5: ;6: ;7: ;8: ;9: ;10: A=AskFileText("Support Contact Number:", "Support.lst", @unsorted, @single) If winplatform == 4 then gosub nt40 ;*************************************************************************** ;** This section executes the computer models list ;*************************************************************************** :case5 cmodel = StrCat("Compaq EN", @tab,"Compaq EP", @tab, "Compaq XE", @tab, "Compaq XL", @tab, "Compaq DP 2000", @tab, "Compaq DP 4000", @tab, "Compaq DP 6000", @tab, "Dell GX110", @tab,"Dell CSX", @tab,"Dell CPX", @tab, "Other") IntControl(33,0,0,0,0) HardwareFormat='WWWDLGED,5.0' HardwareCaption= 'Computer Hardware' HardwareX=150 HardwareY=120 HardwareWidth=73 HardwareHeight=104 HardwareNumControls=2 Hardware01 = '4,2,66,88,ITEMBOX,cmodel, default' Hardware02 = '4,88,64,DEFAULT,PUSHBUTTON,DEFAULT,"&OK",1' ButtonPushed=Dialog("Hardware") If winplatform == 4 then gosub nt40 ;*************************************************************************** ;** This section executes the monitor model list ;*************************************************************************** :case6 mmodel = StrCat("Compaq V70", @tab, "Compaq V75", @tab, "Compaq V700", @tab, "Compaq 151 FS", @tab, "Compaq 171 FS", @tab, "Compaq 172", @tab, "Hitachi 813", @tab, "Mitsubishi 21TX", @tab, "NEC 3V", @tab, "NEC 2V", @tab, "Dell", @tab, "Other") IntControl(33,0,0,0,0) MyDialogFormat= 'WWWDLGED,5.0' MyDialogCaption='Monitor Hardware' MyDialogX=150 MyDialogY=150 MyDialogWidth=73 MyDialogHeight=104 MyDialogNumControls=2 MyDialog01='4,2,66,88,ITEMBOX,mmodel,default' MyDialog02='4,88,64,DEFAULT,PUSHBUTTON,DEFAULT,"&OK",1' ButtonPushed=Dialog("MyDialog") If winplatform == 4 then gosub nt40 ;*************************************************************************** ;** This section executes the cpu speed list ;*************************************************************************** :case7 cspeed = StrCat("90",@tab,"100",@tab,"120",@tab,"133",@tab,"166",@tab,"200",@tab,"266",@tab,"300",@tab,"333",@tab,"350",@tab,"400",@tab,"433",@tab,"466",@tab,"500", @tab,"550",@tab,"600",@tab,"650",@tab,"667",@tab,"750",@tab,"800",@tab,"Other") IntControl(33,0,0,0,0) MyDialogFormat= 'WWWDLGED,5.0' MyDialogCaption='CPU Speed' MyDialogX=150 MyDialogY=150 MyDialogWidth=73 MyDialogHeight=104 MyDialogNumControls=2 MyDialog01='4,2,66,88,ITEMBOX,cspeed,default' MyDialog02='4,88,64,DEFAULT,PUSHBUTTON,DEFAULT,"&OK",1' ButtonPushed=Dialog("MyDialog") If winplatform == 4 then gosub nt40 ;*************************************************************************** ;** This section will backup the current user registry settings ;** c:\Winnt\repair\old_erd ;*************************************************************************** :case8 ;Contents of Winnt.lst ;""Windows NT"" ; ;This script will backup the ;c:\Winnt\repair directory ;and copy it to the following directory as ;c:\Winnt\repair\old_erd ; ; ;1: ;2: ;3: ;4: ;5: ;6: ;7: ;8: A=AskFileText("Windows NT 4.0 Profile Backup ", "Winnt.lst", @unsorted, @single) IntControl(29, @TAB, 0, 0, 0) temp=Environment("TEMP") DirMake("c:\Winnt\repair\old_erd") DirChange("c:\Winnt\repair") FileCopy("*.*", "c:\Winnt\repair\old_erd", @FALSE) TimeDelay(5) time=10 BoxOpen("Essential Technology Services","") stopped=0 while time > 0 BoxText(strcat("Time left = ",time,@crlf,"Please Standby Registry Backup Procedure")) TimeDelay(1) if IsKeyDown(@shift) stopped=1 break endif time=time-1 endwhile if stopped==1 else endif Run ("rdisk", " /s-") If winplatform == 4 then gosub nt40 :exit exit
Article ID: W16197File Created: 2004:03:30:15:43:14Last Updated: 2004:03:30:15:43:14