Month: March 2014

I used this in WinPE to return the manufacturer.

Note, remove the underscore in front of DELLMODE

@echo off
color 0a
cls

set code1=
set code2=

for /f “delims==” %%m in (‘wmic csproduct get vendor ^| find /c /i “Hewlett-Packard”‘) do set /a code1=%%m
if %code1% EQU 1 (
goto :HPMODE
)

for /f “delims==” %%n in (‘wmic csproduct get vendor ^| find /c /i “Dell”‘) do set /a code2=%%n
if %code2% EQU 1 (
goto :_DELLMODE
)

color 0c
Echo Not compatible…this machine cannot be imaged.
pause
exit

:_DELLMODE
echo Dell Mode…
pause
exit

:HPMODE
echo HP Mode…
pause
exit

Dim found3

strEmail = “YourEmailAddress@none.com”
Complex3()
msgbox found3

Function Complex3()
Dim found3_1, found3_2

found3 = “false”
‘!
If InStr(strEmail, “@”) <> 0 Then
found3_1 = “true”
else
found3_1 = “false”
End If
If InStr(strEmail, “.”) <> 0 Then
found3_2 = “true”
else
found3_2 = “false”
End If

found3 = found3_1 AND found3_2

end function

found1 = ""
found2 = ""

strUserFirst = "ThisIsMyPassword*0"
Complex1
Complex2
msgbox found1 
msgbox found2

Function Complex1()
found1 = "false"
'!
If InStr(strUserFirst, chr(33)) <> 0 Then
   found1 = "true"
End If

'"
If InStr(strUserFirst, chr(34)) <> 0 Then
   found1 = "true"
End If

'#
If InStr(strUserFirst, chr(35)) <> 0 Then
   found1 = "true"
End If

'$
If InStr(strUserFirst, chr(36)) <> 0 Then
   found1 = "true"
End If

'%
If InStr(strUserFirst, chr(37)) <> 0 Then
   found1 = "true"
End If

'&
If InStr(strUserFirst, chr(38)) <> 0 Then
   found1 = "true"
End If

''
If InStr(strUserFirst, chr(39)) <> 0 Then
   found1 = "true"
End If

'(
If InStr(strUserFirst, chr(40)) <> 0 Then
   found1 = "true"
End If


')
If InStr(strUserFirst, chr(41)) <> 0 Then
   found1 = "true"
End If

'*
If InStr(strUserFirst, chr(42)) <> 0 Then
   found1 = "true"
End If

'+
If InStr(strUserFirst, chr(43)) <> 0 Then
   found1 = "true"
End If

',
If InStr(strUserFirst, chr(44)) <> 0 Then
   found1 = "true"
End If

'-
If InStr(strUserFirst, chr(45)) <> 0 Then
   found1 = "true"
End If

'.
If InStr(strUserFirst, chr(46)) <> 0 Then
   found1 = "true"
End If

'/
If InStr(strUserFirst, chr(47)) <> 0 Then
   found1 = "true"
End If


':
If InStr(strUserFirst, chr(58)) <> 0 Then
   found1 = "true"
End If

';
If InStr(strUserFirst, chr(59)) <> 0 Then
   found1 = "true"
End If

'<
If InStr(strUserFirst, chr(60)) <> 0 Then
   found1 = "true"
End If

'=
If InStr(strUserFirst, chr(61)) <> 0 Then
   found1 = "true"
End If

'>
If InStr(strUserFirst, chr(62)) <> 0 Then
   found1 = "true"
End If

'?
If InStr(strUserFirst, chr(63)) <> 0 Then
   found1 = "true"
End If

'@
If InStr(strUserFirst, chr(64)) <> 0 Then
   found1 = "true"
End If

'[
If InStr(strUserFirst, chr(91)) <> 0 Then
   found1 = "true"
End If

'\
If InStr(strUserFirst, chr(92)) <> 0 Then
   found1 = "true"
End If

']
If InStr(strUserFirst, chr(93)) <> 0 Then
   found1 = "true"
End If

'^
If InStr(strUserFirst, chr(94)) <> 0 Then
   found1 = "true"
End If

'_
If InStr(strUserFirst, chr(95)) <> 0 Then
   found1 = "true"
End If

'`
If InStr(strUserFirst, chr(96)) <> 0 Then
   found1 = "true"
End If


'{
If InStr(strUserFirst, chr(123)) <> 0 Then
   found1 = "true"
End If

'|
If InStr(strUserFirst, chr(124)) <> 0 Then
   found1 = "true"
End If

'}
If InStr(strUserFirst, chr(125)) <> 0 Then
   found1 = "true"
End If


'~
If InStr(strUserFirst, chr(126)) <> 0 Then
   found1 = "true"
End If

end function



Function Complex2()
found2 = "false"
'0
If InStr(strUserFirst, chr(48)) <> 0 Then
   found2 = "true"
End If

'1
If InStr(strUserFirst, chr(49)) <> 0 Then
   found2 = "true"
End If

'2
If InStr(strUserFirst, chr(50)) <> 0 Then
   found2 = "true"
End If

'3
If InStr(strUserFirst, chr(51)) <> 0 Then
   found2 = "true"
End If

'4
If InStr(strUserFirst, chr(52)) <> 0 Then
   found2 = "true"
End If

'5
If InStr(strUserFirst, chr(53)) <> 0 Then
   found2 = "true"
End If

'6
If InStr(strUserFirst, chr(54)) <> 0 Then
   found2 = "true"
End If

'7
If InStr(strUserFirst, chr(55)) <> 0 Then
   found2 = "true"
End If


'8
If InStr(strUserFirst, chr(56)) <> 0 Then
   found2 = "true"
End If

'9
If InStr(strUserFirst, chr(57)) <> 0 Then
   found2 = "true"
End If

end function

ASCII codes were originally developed for teletype machines and the first 32 characters are non-printing.

@echo off
setlocal enabledelayedexpansion
set count=1
for /f “delims=” %%a in (data.txt) do (
if !count!==1 set FName=%%a
if !count!==2 set LName=%%a
if !count!==3 set UName=%%a
if !count!==4 set UName=%%a
set /a count+=1
)

%windir%\system32\REG.exe ADD “HKEY_LOCAL_MACHINE\SOFTWARE\Scan” /v “First Name” /t REG_SZ /d “%FNAME%” /f
%windir%\system32\REG.exe ADD “HKEY_LOCAL_MACHINE\SOFTWARE\Scan” /v “Last Name” /t REG_SZ /d “%LNAME%” /f
%windir%\system32\REG.exe ADD “HKEY_LOCAL_MACHINE\SOFTWARE\Scan” /v “User Name” /t REG_SZ /d “%UNAME%” /f
%windir%\system32\REG.exe ADD “HKEY_LOCAL_MACHINE\SOFTWARE\Scan” /v “Email Address” /t REG_SZ /d “%Email%” /f

<br /> <a href="http://www.youtube.com/VIDEO_HERE" rel="prettyPhoto" title="Description">Test</a><br /> <script type="text/javascript" charset="utf-8"> $(document).ready(function(){ $("a[rel^='prettyPhoto']").prettyPhoto({ allow_resize: true, /* Resize the item true/false */ default_width: 1000, default_height: 600, horizontal_padding: 20}); }); </script><br />

This is how you would center an item vertically and horizontally on your webpage.

Your HTML should look like this:

<br /> <body></p> <div id="mycontainer"> <div id="mycontent"> Centered div </div> </div> <p></body><br />

Your CSS should look like this

#mycontainer{
position: absolute;
top: 50%;
margin-top: -325px;/* half of #mycontent height*/
left: 0;
width: 100%;
}
#mycontent {
width: 1000px;
margin-left: auto;
margin-right: auto;
height: 600px;
}

This will allow your webpages to be accessed and redirected by mobile phone users.

<br /> <script type="text/javascript"> if (screen.width<800) { window.location="http://eddiejackson.net/data/default.htm"; } </script><br />

This allows your webpages to be accessed and redirected by Safari Browsers.

<script language="Javascript" type="text/javascript">
var testTimerID;

testTimerID = window.setTimeout(autoDirect, 30*250 );

function autoDirect() {
window.location = 'http://google.com/';
}
</script>

This will return the manufacturer of a computer.

VBScript

On Error Resume Next

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set colItems = objWMIService.ExecQuery _
(“Select * from Win32_ComputerSystem”)
For Each objItem in colItems
Wscript.Echo “Manufacturer: ” & objItem.Manufacturer
next

Command Line

wmic csproduct get vendor

You will notice if you use the direct path to snippet.exe in your scripts (C:\Windows\system32\SnippingTool.exe), for some reason it won’t open. The solution is to launch it with explorer.

Such as:

C:\Windows\explorer.exe C:\Windows\system32\SnippingTool.exe

This is how you set a string to a specific line in a text file.

For example, the contents of your sample.txt text file:

This
Is
A
Test

You want to return “Is”

Script

setlocal enabledelayedexpansion
set count=1
for /f “delims=” %%a in (sample.txt) do (
if !count!==2 set strRet=%%a
set /a count+=1
)

echo %strRet%
Pause

This is how you return the first character, from the first line in a text file.

set count=1
for /f “delims=” %%a in (text.txt) do (
if !count!==1 set FChar=%%a
Set FChar=!FChar:~0,1!
set /a count+=1
)

echo %FChar%
Pause